home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / FlashMandel / Sources / FlashMandel.c < prev    next >
C/C++ Source or Header  |  1998-06-28  |  130KB  |  3,920 lines
  1. /*******************************************************************************
  2. **
  3. **  Coded by Dino Papararo              22-Jun-1998
  4. **
  5. *******************************************************************************/
  6.  
  7. #define __USE_SYSBASE
  8.  
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <proto/exec.h>
  13. #include <proto/dos.h>
  14. #include <proto/intuition.h>
  15. #include <proto/diskfont.h>
  16. #include <proto/graphics.h>
  17. #include <proto/gadtools.h>
  18. #include <proto/utility.h>
  19. #include <proto/iffparse.h>
  20. #include <proto/icon.h>
  21. #include <proto/asl.h>
  22. #include <exec/execbase.h>
  23. #include <exec/memory.h>
  24. #include <intuition/intuition.h>
  25. #include <intuition/gadgetclass.h>
  26. #include <graphics/gfxbase.h>
  27. #include <graphics/videocontrol.h>
  28. #include <graphics/scale.h>
  29. #include <iffp/ilbmapp.h>
  30. #include <devices/prtbase.h>
  31. #include <devices/printer.h>
  32.  
  33.  
  34.  
  35. /* To compile the FPU versions uncomment next line */
  36. #define __USE_FPU
  37.  
  38.  
  39. #ifdef __USE_FPU
  40. #include <m68881.h>
  41. #else
  42. #include <mieeedoub.h>
  43. #endif
  44.  
  45. #define VERSION  "FlashMandel 1.1 "
  46. #define AUTHOR   "Dino Papararo"
  47. #define DATE     __AMIGADATE__
  48. #define COPYRIGHT "©1997-98"
  49. #define ADDRESS  "          Via Manzoni 184\n\n          80123    Napoli\n\n              Italia\n\n"
  50. #define EMAIL    "     E-Mail:  DinoP@IName.Com\n\n"
  51.  
  52. #define INIT_DEF_RMIN      -2.2
  53. #define INIT_DEF_RMAX      +0.8
  54. #define INIT_DEF_IMIN      -1.125
  55. #define INIT_DEF_IMAX      +1.125
  56. #define INIT_DEF_RMINSTR   "-2.2"
  57. #define INIT_DEF_RMAXSTR   "+0.8"
  58. #define INIT_DEF_IMINSTR   "-1.125"
  59. #define INIT_DEF_IMAXSTR   "+1.125"
  60.  
  61. #define DEF_WIDTH        640
  62. #define DEF_HEIGHT       480
  63. #define DEF_DEPTH        4
  64. #define DEF_MONITOR      0x40d20001
  65. #define DEF_MONITORSTR  "0x40d20001"
  66.  
  67. #define MIN_WIDTH  640
  68. #define MIN_HEIGHT 480
  69. #define MAX_WIDTH  16368
  70. #define MAX_HEIGHT 16384
  71. #define MIN_DEPTH  3
  72. #define MAX_DEPTH  8
  73.  
  74. #define MIN_ITERATIONS 31
  75.  
  76. #define RAW_ESC      0x045
  77. #define VAN_ESC      0x01B
  78. #define TAB          0x042
  79.  
  80. #define FIXED_POINT      (28L)                /* Bit di Precisione */
  81. #define MAX_POT          (1L << FIXED_POINT)  /*   2^FIXED_POINT   */
  82.  
  83. #define MINLIMIT 2
  84.  
  85. #define BLACK      (0)
  86. #define LIGHT_GREY (2)
  87. #define WHITE      (1)
  88. #define DARK_GREY  (3)
  89.  
  90. #define POINTS       4
  91. #define PAIRS        5
  92.  
  93. #define MYSECS       (50L << 1L)
  94.  
  95. #define SHIFTRIGHT   FALSE
  96. #define SHIFTLEFT    TRUE
  97.  
  98. #define INITIALZOOM  14
  99.  
  100. #define CLEAR_POINTER 0
  101. #define BUSY_POINTER  1
  102. #define ZOOM_POINTER  2
  103.  
  104. #define ZPW          15
  105. #define ZPH          15
  106. #define ZPXO         -8
  107. #define ZPYO         -7
  108.  
  109. #define MAXCHARS     20
  110.  
  111. #define ACCEPT       (1)
  112. #define RATIO        (2)
  113. #define RESET        (3)
  114. #define CANCEL       (4)
  115. #define KEEP         (5)
  116.  
  117. #define WMASK  0x1
  118. #define FMASK  0x2
  119. #define VMASK  0x4
  120. #define SMASK  0x8
  121. #define BMASK  0x10
  122. #define ZMASK  0x20
  123. #define TMASK  0x40
  124.  
  125. #define SPREAD_BIT   (1L << 16)
  126. #define REPEATED_BIT (1L << 17)
  127. #define TRUE_BIT     (1L << 18)
  128. #define INTEGER_BIT  (1L << 19)
  129. #define TITLE_BIT    (1L << 20)
  130.  
  131. #define LOADPICTURE_MSG 0x1
  132. #define SAVEPICTURE_MSG 0x2
  133. #define DUMP_MSG        0x4
  134. #define REDRAW_MSG      0x8
  135. #define UNDO_MSG        0x10
  136. #define DRAW_MSG        0x20
  137. #define PREVIEW_MSG     0x40
  138. #define NEWDISPLAY_MSG  0x80
  139. #define STOP_MSG        0x100
  140. #define EXIT_MSG        0x200
  141. #define COORDS_MSG      0x400
  142. #define ITER_MSG        0x800
  143. #define ABOUT_MSG       0x1000
  144. #define TITLE_MSG       0x2000
  145. #define TIME_MSG        0x4000
  146. #define PALETTE_MSG     0x8000
  147. #define CYCLERIGHT_MSG  0x10000
  148. #define CYCLELEFT_MSG   0x20000
  149. #define DELAY_MSG       0x40000
  150. #define COLOR_MSG       0x80000
  151. #define LOADPALETTE_MSG 0x100000
  152. #define SAVEPALETTE_MSG 0x200000
  153. #define FONTREQ_MSG     0x400000
  154.  
  155. #define PICTURES_DRAWER 0
  156. #define PALETTES_DRAWER 1
  157.  
  158. #define IDCMP_STANDARD  IDCMP_CLOSEWINDOW|IDCMP_RAWKEY|IDCMP_MOUSEBUTTONS|IDCMP_MOUSEMOVE|IDCMP_MENUPICK
  159.  
  160. #define WFLG_STANDARD WFLG_ACTIVATE|WFLG_BACKDROP|WFLG_NOCAREREFRESH|WFLG_SMART_REFRESH|WFLG_BORDERLESS|WFLG_REPORTMOUSE|WFLG_NEWLOOKMENUS
  161.  
  162. #define TEXT_ALERT_POS  "\x00\x90\x10 FlashMandel message: "
  163.  
  164. #define MODE_ID_MASK (LACE|HIRES|HAM|EXTRA_HALFBRITE)
  165.  
  166. #define ID_MAND MAKE_ID('M','A','N','D')
  167.  
  168. struct MandelChunk { WORD LeftEdge,TopEdge,Width,Height;
  169.                      long double RMin,RMax,IMin,IMax;
  170.                      long double RConst,IConst;
  171.                      ULONG Iterations;
  172.                      ULONG Special;
  173.                    };
  174.  
  175. IMPORT struct ExecBase *SysBase;
  176.  
  177. TEXT VERSION_STRING [] = "\0$VER: " VERSION DATE "\r\n by " AUTHOR;
  178.  
  179. TEXT MYFILE [25],PICTURESDIR [220],PALETTESDIR [220],MYPATH [246],BAR_STRING [80],*MYDIR = NULL;
  180.  
  181. BOOL SPREAD = TRUE;
  182.  
  183. WORD ZOOMLINE [PAIRS << 1] , MAX_ITERATIONS = 319,RETURNVALUE = 0;
  184.  
  185. UWORD ITERATIONS;
  186.  
  187. LONG PRIORITY = NULL,DELAY = 5L,__oslibversion = 39L;
  188.  
  189. ULONG MASK = TMASK;
  190.  
  191. ULONG ELAPSEDTIME = NULL,COLOR_PENS;
  192.  
  193. long double RMIN=INIT_DEF_RMIN,RMAX=INIT_DEF_RMAX,IMIN=INIT_DEF_IMIN,IMAX=INIT_DEF_IMAX;
  194.  
  195. long double DEF_RMIN,DEF_RMAX,DEF_IMIN,DEF_IMAX,URMIN,URMAX,UIMIN,UIMAX;
  196.  
  197. long double FACTOR=0.0,INCREMREAL=0.0,INCREMIMAG=0.0,CRE=0.0,CIM=0.0;
  198.  
  199. ULONG *PALETTE;
  200.  
  201. WORD (*FUNCTION) (WORD,long double,long double);
  202.  
  203. VOID (*V_LINE) (struct RastPort *,const LONG,const LONG,const LONG);
  204.  
  205. VOID (*H_LINE) (struct RastPort *,const LONG,const LONG,const LONG);
  206.  
  207. CPTR *VINFO = NULL;
  208.  
  209. UBYTE *OpenDisplayError       = TEXT_ALERT_POS "I need at least 8 colors, sorry." "\x00";
  210. UBYTE *FontError              = TEXT_ALERT_POS "Font failed" "\x00";
  211. UBYTE *NoMonitor              = TEXT_ALERT_POS "No monitor" "\x00";
  212. UBYTE *NoChips                = TEXT_ALERT_POS "No chips" "\x00";
  213. UBYTE *NoMem                  = TEXT_ALERT_POS "No mem" "\x00";
  214. UBYTE *NoChipMem              = TEXT_ALERT_POS "No chipmem" "\x00";
  215. UBYTE *PubNotUnique           = TEXT_ALERT_POS "Pub not unique" "\x00";
  216. UBYTE *UnknownMode            = TEXT_ALERT_POS "Unknown mode" "\x00";
  217. UBYTE *ScreenTooDeep          = TEXT_ALERT_POS "Screen too deep" "\x00";
  218. UBYTE *AttachScreen           = TEXT_ALERT_POS "Attach screen failed" "\x00";
  219. UBYTE *ModeNotAvailableError  = TEXT_ALERT_POS "Mode not available" "\x00";
  220. UBYTE *UnknownScrError        = TEXT_ALERT_POS "Unknown screen error" "\x00";
  221. UBYTE *VisualInfoError        = TEXT_ALERT_POS "Visualinfo failed" "\x00";
  222. UBYTE *WindowError            = TEXT_ALERT_POS "Openwindow failed" "\x00";
  223. UBYTE *MenuError              = TEXT_ALERT_POS "Menu failed" "\x00";
  224. UBYTE *GadgetError            = TEXT_ALERT_POS "Gadget error" "\x00";
  225. UBYTE *WindowGadgetError      = TEXT_ALERT_POS "Window gadget error" "\x00";
  226. UBYTE *PreviewWindowError     = TEXT_ALERT_POS "Preview window failed" "\x00";
  227. UBYTE *CreateDisplayError     = TEXT_ALERT_POS "Createdisplay error" "\x00";
  228. UBYTE *DimensionInfoError     = TEXT_ALERT_POS "Dimensioninfo error" "\x00";
  229. UBYTE *DisplayInfoError       = TEXT_ALERT_POS "Displayinfo error" "\x00";
  230. UBYTE *PaletteRequesterError  = TEXT_ALERT_POS "Palette requester error" "\x00";
  231. UBYTE *OpenDiskFontError      = TEXT_ALERT_POS "Selected font not loaded" "\x00";
  232. UBYTE *MakeDisplayError       = TEXT_ALERT_POS "Display error" "\x00";
  233. UBYTE *QueryMandPicError      = TEXT_ALERT_POS "Not a FlashMandel picture !" "\x00";
  234. UBYTE *LoadMandPicError       = TEXT_ALERT_POS "Load picture error" "\x00";
  235. UBYTE *SaveMandPicError       = TEXT_ALERT_POS "Save picture error" "\x00";
  236. UBYTE *LoadMandPalError       = TEXT_ALERT_POS "Load palette error" "\x00";
  237. UBYTE *SaveMandPalError       = TEXT_ALERT_POS "Save palette error" "\x00";
  238.  
  239. VOID   PutPointer    (struct Window *,UWORD *,LONG,LONG,LONG,LONG,UBYTE);
  240. VOID   ClipIt        (WORD,WORD,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,struct Rectangle *,BOOL);
  241. ULONG  ModeFallBack  (ULONG,WORD,WORD,WORD);
  242. LONG   About         (struct Window *);
  243. LONG   Choice        (struct Window *,TEXT *,TEXT *);
  244. LONG   CheckGFX      (VOID);
  245. BOOL   CheckEHB      (ULONG);
  246. UBYTE  GetMaxPlanes  (ULONG);
  247. ULONG  CheckFPU      (UWORD);
  248. VOID   AdjustRatio   (long double *,long double *,long double *,long double *,WORD,WORD,BOOL);
  249. WORD   Integer       (WORD,long double,long double);
  250. WORD   Real          (WORD,long double,long double);
  251. VOID   ShowTime      (struct Window *,TEXT *,ULONG);
  252. ULONG  IntegerGad    (struct Window *,TEXT *,TEXT *,TEXT *,ULONG);
  253. VOID   CloseDisplay  (struct ILBMInfo *,CPTR *);
  254. LONG   MakeDisplay   (struct ILBMInfo *);
  255. VOID   VLine_R_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  256. VOID   HLine_R_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  257. VOID   VLine_S_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  258. VOID   HLine_S_EHB   (struct RastPort *,const LONG,const LONG,const LONG);
  259. VOID   VLine_R       (struct RastPort *,const LONG,const LONG,const LONG);
  260. VOID   HLine_R       (struct RastPort *,const LONG,const LONG,const LONG);
  261. VOID   VLine_S       (struct RastPort *,const LONG,const LONG,const LONG);
  262. VOID   HLine_S       (struct RastPort *,const LONG,const LONG,const LONG);
  263. BOOL   CheckBox      (struct RastPort *,const LONG,const LONG,const LONG,const LONG);
  264. BOOL   Rectangle     (struct Window *,const LONG,const LONG,const LONG,const LONG);
  265. BOOL   NewCoords     (struct Window *,WORD,WORD,WORD,WORD);
  266. BOOL   DrawFrame     (struct Window *,WORD,WORD,WORD,WORD);
  267. ULONG  DrawFractal   (struct Window *,const LONG,const LONG,const LONG,const LONG);
  268. BOOL   Preview       (struct Window *,WORD,WORD);
  269. BOOL   ShowCoords    (struct Window *);
  270. VOID   RestoreCoords (VOID);
  271. VOID   SaveCoords    (VOID);
  272. BOOL   FileRequest   (struct Window *,TEXT *,TEXT *,BOOL,BOOL);
  273. BOOL   FontRequest   (struct Window *);
  274. BOOL   SMRequest     (struct ILBMInfo *);
  275. VOID   SetMenuStart  (struct Window *);
  276. VOID   SetMenuStop   (struct Window *);
  277. ULONG  ProcessMenu   (struct Window *,UWORD);
  278. VOID   ProcessMouse  (struct Window *,WORD,WORD);
  279. ULONG  HandleEvents  (struct ILBMInfo *);
  280. LONG   WinDump       (struct Window *);
  281. ULONG  Fail          (UBYTE *,ULONG);
  282. BOOL   PasteWin      (struct BitMap *,struct Window *,WORD,WORD);
  283. LONG   main          (ULONG,UBYTE **);
  284.  
  285. static ULONG __saveds __asm SMFilterFunc (register __a0 struct Hook *,register __a2 struct ScreenModeRequester *,register __a1 ULONG);
  286.  
  287. struct Screen *OpenIdScreen (struct ILBMInfo *,WORD,WORD,WORD,ULONG);
  288. struct Window *OpenDisplay  (struct ILBMInfo *,WORD,WORD,WORD,ULONG);
  289. struct BitMap *CopyBitMap   (struct Window *,WORD,WORD,WORD,WORD);
  290.  
  291. struct Hook         SMFILTERHOOK      = {NULL,NULL,(VOID *) SMFilterFunc,NULL};
  292.  
  293. struct Border       MYBORDER          = {0,0,0,0,COMPLEMENT,PAIRS,ZOOMLINE,0};
  294.  
  295. struct TextAttr     MYFONTSTRUCT      = {"topaz.font",8,FS_NORMAL,FPF_ROMFONT};
  296.  
  297. struct NewGadget    TEXTGAD           = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  298.  
  299. struct NewGadget    BUTTONGAD         = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  300.  
  301. struct NewGadget    CHECKBOXGAD       = {0,0,0,0,0,&MYFONTSTRUCT,0,0,0,0};
  302.  
  303. struct BitScaleArgs BSA               = {0,0,0,0,0,0,0,0,0,0,0,0,NULL,NULL,NULL,0,0,NULL,NULL};
  304.  
  305. struct Chunk        COPYRIGHT_CHUNK   = {NULL,ID_ILBM,ID_Copyright,IFFSIZE_UNKNOWN,"\n\n" VERSION COPYRIGHT " by " AUTHOR "\n\n"};
  306.  
  307. struct Chunk        SPECIAL_CHUNK     = {NULL,ID_ILBM,ID_MAND,sizeof (struct MandelChunk),NULL};
  308.  
  309. UWORD PENS [] = {BLACK,DARK_GREY,WHITE,WHITE,DARK_GREY,LIGHT_GREY,DARK_GREY,LIGHT_GREY,DARK_GREY,WHITE,LIGHT_GREY,DARK_GREY,(UWORD) ~0};
  310.  
  311. /*
  312.  
  313. 01    0 DETAILPEN             SFONDO
  314. 02    1 BLOCKPEN              TESTO
  315. 03    1 TEXTPEN               TESTO EVIDENZIATO
  316. 04    2 SHINEPEN              BORDI CHIARI
  317. 05    1 SHADOWPEN             BORDI SCURI
  318. 06    3 FILLPEN               BARRA TITOLO FINESTRE ATTIVE
  319. 07    1 FILLTEXTPEN           TITOLO FINESTRE ATTIVE
  320. 08    0 BACKGROUNDPEN
  321. 09    2 HIGHLIGHTTEXTPEN
  322.  
  323. 10    1 BARDETAILPEN          TESTO NEI MENU
  324. 11    2 BARBLOCKPEN           SFONDO NEI MENU
  325. 12    1 BARTRIMPEN
  326.  
  327. */
  328.  
  329. ULONG COLORS_ECS [] = {32L << 16L,
  330.                        0x00000000,0x00000000,0x00000000,
  331.                        0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
  332.                        0xAAAAAAAA,0xAAAAAAAA,0xAAAAAAAA,
  333.                        0x66666666,0x66666666,0x66666666,
  334.                        0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF,
  335.                        0xBBBBBBBB,0xBBBBBBBB,0xBBBBBBBB,
  336.                        0x77777777,0x77777777,0x77777777,
  337.                        0x33333333,0x33333333,0x33333333,
  338.                        0x33333333,0x33333333,0x00000000,
  339.                        0x77777777,0x77777777,0x00000000,
  340.                        0xBBBBBBBB,0xBBBBBBBB,0x00000000,
  341.                        0xFFFFFFFF,0xFFFFFFFF,0x00000000,
  342.                        0x00000000,0xFFFFFFFF,0x00000000,
  343.                        0x00000000,0xBBBBBBBB,0x00000000,
  344.                        0x00000000,0x77777777,0x00000000,
  345.                        0x00000000,0x33333333,0x00000000,
  346.                        0x33333333,0x00000000,0x33333333,
  347.                        0x77777777,0x00000000,0x77777777,
  348.                        0xBBBBBBBB,0x00000000,0xBBBBBBBB,
  349.                        0xFFFFFFFF,0x00000000,0xFFFFFFFF,
  350.                        0xFFFFFFFF,0x00000000,0x00000000,
  351.                        0xBBBBBBBB,0x00000000,0x00000000,
  352.                        0x77777777,0x00000000,0x00000000,
  353.                        0x33333333,0x00000000,0x00000000,
  354.                        0x00000000,0x33333333,0x33333333,
  355.                        0x00000000,0x77777777,0x77777777,
  356.                        0x00000000,0xBBBBBBBB,0xBBBBBBBB,
  357.                        0x00000000,0xFFFFFFFF,0xFFFFFFFF,
  358.                        0x00000000,0x00000000,0xFFFFFFFF,
  359.                        0x00000000,0x00000000,0xBBBBBBBB,
  360.                        0x00000000,0x00000000,0x77777777,
  361.                        0x00000000,0x00000000,0x33333333,
  362.                        NULL};
  363.  
  364. ULONG COLORS_AGA []  =  {256L << 16L,
  365.                          0x00000000,0x00000000,0x00000000, 0xFFFFFFFF,0xFFFFFFFF,0xFFFFFFFF, 0xAAAAAAAA,0xAAAAAAAA,0xAAAAAAAA, 0x66666666,0x66666666,0x66666666,
  366.                          0x9f9f9f9f,0x9f9f9f9f,0x9f9f9f9f, 0xafafafaf,0xafafafaf,0xafafafaf, 0xbfbfbfbf,0xbfbfbfbf,0xbfbfbfbf, 0xcfcfcfcf,0xcfcfcfcf,0xcfcfcfcf,
  367.                          0xdfdfdfdf,0xdfdfdfdf,0xdfdfdfdf, 0xefefefef,0xefefefef,0xefefefef, 0xdfdfdfdf,0xefefefef,0xffffffff, 0xcfcfcfcf,0xdfdfdfdf,0xefefefef,
  368.                          0xbfbfbfbf,0xcfcfcfcf,0xdfdfdfdf, 0xafafafaf,0xbfbfbfbf,0xcfcfcfcf, 0x9f9f9f9f,0xafafafaf,0xbfbfbfbf, 0x8f8f8f8f,0x9f9f9f9f,0xafafafaf,
  369.                          0x7f7f7f7f,0x8f8f8f8f,0x9f9f9f9f, 0x6f6f6f6f,0x7f7f7f7f,0x8f8f8f8f, 0x5f5f5f5f,0x6f6f6f6f,0x7f7f7f7f, 0x4f4f4f4f,0x5f5f5f5f,0x6f6f6f6f,
  370.                          0x3f3f3f3f,0x4f4f4f4f,0x5f5f5f5f, 0x2f2f2f2f,0x3f3f3f3f,0x4f4f4f4f, 0x1f1f1f1f,0x2f2f2f2f,0x3f3f3f3f, 0x0f0f0f0f,0x1f1f1f1f,0x2f2f2f2f,
  371.                          0x00000000,0x0f0f0f0f,0x1f1f1f1f, 0x1f1f1f1f,0x0f0f0f0f,0x1f1f1f1f, 0x2f2f2f2f,0x1f1f1f1f,0x2f2f2f2f, 0x3f3f3f3f,0x2f2f2f2f,0x3f3f3f3f,
  372.                          0x4f4f4f4f,0x3f3f3f3f,0x4f4f4f4f, 0x5f5f5f5f,0x4f4f4f4f,0x5f5f5f5f, 0x6f6f6f6f,0x5f5f5f5f,0x6f6f6f6f, 0x7f7f7f7f,0x6f6f6f6f,0x7f7f7f7f,
  373.                          0x8f8f8f8f,0x7f7f7f7f,0x8f8f8f8f, 0x9f9f9f9f,0x8f8f8f8f,0x9f9f9f9f, 0xafafafaf,0x9f9f9f9f,0xafafafaf, 0xbfbfbfbf,0xafafafaf,0xbfbfbfbf,
  374.                          0xcfcfcfcf,0xbfbfbfbf,0xcfcfcfcf, 0xdfdfdfdf,0xcfcfcfcf,0xdfdfdfdf, 0xefefefef,0xdfdfdfdf,0xefefefef, 0xffffffff,0xefefefef,0xffffffff,
  375.                          0xefefefef,0xffffffff,0xefefefef, 0xdfdfdfdf,0xefefefef,0xdfdfdfdf, 0xcfcfcfcf,0xdfdfdfdf,0xcfcfcfcf, 0xbfbfbfbf,0xcfcfcfcf,0xbfbfbfbf,
  376.                          0xafafafaf,0xbfbfbfbf,0xafafafaf, 0x9f9f9f9f,0xafafafaf,0x9f9f9f9f, 0x8f8f8f8f,0x9f9f9f9f,0x8f8f8f8f, 0x7f7f7f7f,0x8f8f8f8f,0x7f7f7f7f,
  377.                          0x6f6f6f6f,0x7f7f7f7f,0x6f6f6f6f, 0x5f5f5f5f,0x6f6f6f6f,0x5f5f5f5f, 0x4f4f4f4f,0x5f5f5f5f,0x4f4f4f4f, 0x3f3f3f3f,0x4f4f4f4f,0x3f3f3f3f,
  378.                          0x2f2f2f2f,0x3f3f3f3f,0x2f2f2f2f, 0x1f1f1f1f,0x2f2f2f2f,0x1f1f1f1f, 0x0f0f0f0f,0x1f1f1f1f,0x0f0f0f0f, 0x0f0f0f0f,0x1f1f1f1f,0x1f1f1f1f,
  379.                          0x1f1f1f1f,0x2f2f2f2f,0x2f2f2f2f, 0x2f2f2f2f,0x3f3f3f3f,0x3f3f3f3f, 0x3f3f3f3f,0x4f4f4f4f,0x4f4f4f4f, 0x4f4f4f4f,0x5f5f5f5f,0x5f5f5f5f,
  380.                          0x5f5f5f5f,0x6f6f6f6f,0x6f6f6f6f, 0x6f6f6f6f,0x7f7f7f7f,0x7f7f7f7f, 0x7f7f7f7f,0x8f8f8f8f,0x8f8f8f8f, 0x8f8f8f8f,0x9f9f9f9f,0x9f9f9f9f,
  381.                          0x9f9f9f9f,0xafafafaf,0xafafafaf, 0xafafafaf,0xbfbfbfbf,0xbfbfbfbf, 0xbfbfbfbf,0xcfcfcfcf,0xcfcfcfcf, 0xcfcfcfcf,0xdfdfdfdf,0xdfdfdfdf,
  382.                          0xdfdfdfdf,0xefefefef,0xefefefef, 0xefefefef,0xffffffff,0xffffffff, 0xffffffff,0xefefefef,0xefefefef, 0xefefefef,0xdfdfdfdf,0xdfdfdfdf,
  383.                          0xdfdfdfdf,0xcfcfcfcf,0xcfcfcfcf, 0xcfcfcfcf,0xbfbfbfbf,0xbfbfbfbf, 0xbfbfbfbf,0xafafafaf,0xafafafaf, 0xafafafaf,0x9f9f9f9f,0x9f9f9f9f,
  384.                          0x9f9f9f9f,0x8f8f8f8f,0x8f8f8f8f, 0x8f8f8f8f,0x7f7f7f7f,0x7f7f7f7f, 0x7f7f7f7f,0x6f6f6f6f,0x6f6f6f6f, 0x6f6f6f6f,0x5f5f5f5f,0x5f5f5f5f,
  385.                          0x5f5f5f5f,0x4f4f4f4f,0x4f4f4f4f, 0x4f4f4f4f,0x3f3f3f3f,0x3f3f3f3f, 0x3f3f3f3f,0x2f2f2f2f,0x2f2f2f2f, 0x2f2f2f2f,0x1f1f1f1f,0x1f1f1f1f,
  386.                          0x1f1f1f1f,0x0f0f0f0f,0x0f0f0f0f, 0x1f1f1f1f,0x1f1f1f1f,0x0f0f0f0f, 0x2f2f2f2f,0x2f2f2f2f,0x1f1f1f1f, 0x3f3f3f3f,0x3f3f3f3f,0x2f2f2f2f,
  387.                          0x4f4f4f4f,0x4f4f4f4f,0x3f3f3f3f, 0x5f5f5f5f,0x5f5f5f5f,0x4f4f4f4f, 0x6f6f6f6f,0x6f6f6f6f,0x5f5f5f5f, 0x7f7f7f7f,0x7f7f7f7f,0x6f6f6f6f,
  388.                          0x8f8f8f8f,0x8f8f8f8f,0x7f7f7f7f, 0x9f9f9f9f,0x9f9f9f9f,0x8f8f8f8f, 0xafafafaf,0xafafafaf,0x9f9f9f9f, 0xbfbfbfbf,0xbfbfbfbf,0xafafafaf,
  389.                          0xcfcfcfcf,0xcfcfcfcf,0xbfbfbfbf, 0xdfdfdfdf,0xdfdfdfdf,0xcfcfcfcf, 0xefefefef,0xefefefef,0xdfdfdfdf, 0xffffffff,0xffffffff,0xefefefef,
  390.                          0xefefefef,0xefefefef,0xffffffff, 0xdfdfdfdf,0xdfdfdfdf,0xefefefef, 0xcfcfcfcf,0xcfcfcfcf,0xdfdfdfdf, 0xbfbfbfbf,0xbfbfbfbf,0xcfcfcfcf,
  391.                          0xafafafaf,0xafafafaf,0xbfbfbfbf, 0x9f9f9f9f,0x9f9f9f9f,0xafafafaf, 0x8f8f8f8f,0x8f8f8f8f,0x9f9f9f9f, 0x7f7f7f7f,0x7f7f7f7f,0x8f8f8f8f,
  392.                          0x6f6f6f6f,0x6f6f6f6f,0x7f7f7f7f, 0x5f5f5f5f,0x5f5f5f5f,0x6f6f6f6f, 0x4f4f4f4f,0x4f4f4f4f,0x5f5f5f5f, 0x3f3f3f3f,0x3f3f3f3f,0x4f4f4f4f,
  393.                          0x2f2f2f2f,0x2f2f2f2f,0x3f3f3f3f, 0x1f1f1f1f,0x1f1f1f1f,0x2f2f2f2f, 0x0f0f0f0f,0x0f0f0f0f,0x1f1f1f1f, 0x0f0f0f0f,0x0f0f0f0f,0x00000000,
  394.                          0x1f1f1f1f,0x1f1f1f1f,0x00000000, 0x2f2f2f2f,0x2f2f2f2f,0x00000000, 0x3f3f3f3f,0x3f3f3f3f,0x00000000, 0x4f4f4f4f,0x4f4f4f4f,0x00000000,
  395.                          0x5f5f5f5f,0x5f5f5f5f,0x00000000, 0x6f6f6f6f,0x6f6f6f6f,0x00000000, 0x7f7f7f7f,0x7f7f7f7f,0x00000000, 0x8f8f8f8f,0x8f8f8f8f,0x00000000,
  396.                          0x9f9f9f9f,0x9f9f9f9f,0x00000000, 0xafafafaf,0xafafafaf,0x00000000, 0xbfbfbfbf,0xbfbfbfbf,0x00000000, 0xcfcfcfcf,0xcfcfcfcf,0x00000000,
  397.                          0xdfdfdfdf,0xdfdfdfdf,0x00000000, 0xefefefef,0xefefefef,0x00000000, 0xffffffff,0xffffffff,0x00000000, 0xefefefef,0xffffffff,0x00000000,
  398.                          0xdfdfdfdf,0xffffffff,0x00000000, 0xcfcfcfcf,0xffffffff,0x00000000, 0xbfbfbfbf,0xffffffff,0x00000000, 0xafafafaf,0xffffffff,0x00000000,
  399.                          0x9f9f9f9f,0xffffffff,0x00000000, 0x8f8f8f8f,0xffffffff,0x00000000, 0x7f7f7f7f,0xffffffff,0x00000000, 0x6f6f6f6f,0xffffffff,0x00000000,
  400.                          0x5f5f5f5f,0xffffffff,0x00000000, 0x4f4f4f4f,0xffffffff,0x00000000, 0x3f3f3f3f,0xffffffff,0x00000000, 0x2f2f2f2f,0xffffffff,0x00000000,
  401.                          0x1f1f1f1f,0xffffffff,0x00000000, 0x0f0f0f0f,0xffffffff,0x00000000, 0x00000000,0xffffffff,0x00000000, 0x00000000,0xefefefef,0x00000000,
  402.                          0x00000000,0xdfdfdfdf,0x00000000, 0x00000000,0xcfcfcfcf,0x00000000, 0x00000000,0xbfbfbfbf,0x00000000, 0x00000000,0xafafafaf,0x00000000,
  403.                          0x00000000,0x9f9f9f9f,0x00000000, 0x00000000,0x8f8f8f8f,0x00000000, 0x00000000,0x7f7f7f7f,0x00000000, 0x00000000,0x6f6f6f6f,0x00000000,
  404.                          0x00000000,0x5f5f5f5f,0x00000000, 0x00000000,0x4f4f4f4f,0x00000000, 0x00000000,0x3f3f3f3f,0x00000000, 0x00000000,0x2f2f2f2f,0x00000000,
  405.                          0x00000000,0x1f1f1f1f,0x00000000, 0x00000000,0x0f0f0f0f,0x00000000, 0x0f0f0f0f,0x00000000,0x0f0f0f0f, 0x1f1f1f1f,0x00000000,0x1f1f1f1f,
  406.                          0x2f2f2f2f,0x00000000,0x2f2f2f2f, 0x3f3f3f3f,0x00000000,0x3f3f3f3f, 0x4f4f4f4f,0x00000000,0x4f4f4f4f, 0x5f5f5f5f,0x00000000,0x5f5f5f5f,
  407.                          0x6f6f6f6f,0x00000000,0x6f6f6f6f, 0x7f7f7f7f,0x00000000,0x7f7f7f7f, 0x8f8f8f8f,0x00000000,0x8f8f8f8f, 0x9f9f9f9f,0x00000000,0x9f9f9f9f,
  408.                          0xafafafaf,0x00000000,0xafafafaf, 0xbfbfbfbf,0x00000000,0xbfbfbfbf, 0xcfcfcfcf,0x00000000,0xcfcfcfcf, 0xdfdfdfdf,0x00000000,0xdfdfdfdf,
  409.                          0xefefefef,0x00000000,0xefefefef, 0xffffffff,0x00000000,0xffffffff, 0xffffffff,0x00000000,0xefefefef, 0xffffffff,0x00000000,0xdfdfdfdf,
  410.                          0xffffffff,0x00000000,0xcfcfcfcf, 0xffffffff,0x00000000,0xbfbfbfbf, 0xffffffff,0x00000000,0xafafafaf, 0xffffffff,0x00000000,0x9f9f9f9f,
  411.                          0xffffffff,0x00000000,0x8f8f8f8f, 0xffffffff,0x00000000,0x7f7f7f7f, 0xffffffff,0x00000000,0x6f6f6f6f, 0xffffffff,0x00000000,0x5f5f5f5f,
  412.                          0xffffffff,0x00000000,0x4f4f4f4f, 0xffffffff,0x00000000,0x3f3f3f3f, 0xffffffff,0x00000000,0x2f2f2f2f, 0xffffffff,0x00000000,0x1f1f1f1f,
  413.                          0xffffffff,0x00000000,0x0f0f0f0f, 0xffffffff,0x00000000,0x00000000, 0xefefefef,0x00000000,0x00000000, 0xdfdfdfdf,0x00000000,0x00000000,
  414.                          0xcfcfcfcf,0x00000000,0x00000000, 0xbfbfbfbf,0x00000000,0x00000000, 0xafafafaf,0x00000000,0x00000000, 0x9f9f9f9f,0x00000000,0x00000000,
  415.                          0x8f8f8f8f,0x00000000,0x00000000, 0x7f7f7f7f,0x00000000,0x00000000, 0x6f6f6f6f,0x00000000,0x00000000, 0x5f5f5f5f,0x00000000,0x00000000,
  416.                          0x4f4f4f4f,0x00000000,0x00000000, 0x3f3f3f3f,0x00000000,0x00000000, 0x2f2f2f2f,0x00000000,0x00000000, 0x1f1f1f1f,0x00000000,0x00000000,
  417.                          0x0f0f0f0f,0x00000000,0x00000000, 0x00000000,0x0f0f0f0f,0x0f0f0f0f, 0x00000000,0x1f1f1f1f,0x1f1f1f1f, 0x00000000,0x2f2f2f2f,0x2f2f2f2f,
  418.                          0x00000000,0x3f3f3f3f,0x3f3f3f3f, 0x00000000,0x4f4f4f4f,0x4f4f4f4f, 0x00000000,0x5f5f5f5f,0x5f5f5f5f, 0x00000000,0x6f6f6f6f,0x6f6f6f6f,
  419.                          0x00000000,0x7f7f7f7f,0x7f7f7f7f, 0x00000000,0x8f8f8f8f,0x8f8f8f8f, 0x00000000,0x9f9f9f9f,0x9f9f9f9f, 0x00000000,0xafafafaf,0xafafafaf,
  420.                          0x00000000,0xbfbfbfbf,0xbfbfbfbf, 0x00000000,0xcfcfcfcf,0xcfcfcfcf, 0x00000000,0xdfdfdfdf,0xdfdfdfdf, 0x00000000,0xefefefef,0xefefefef,
  421.                          0x00000000,0xffffffff,0xffffffff, 0x00000000,0xefefefef,0xffffffff, 0x00000000,0xdfdfdfdf,0xffffffff, 0x00000000,0xcfcfcfcf,0xffffffff,
  422.                          0x00000000,0xbfbfbfbf,0xffffffff, 0x00000000,0xafafafaf,0xffffffff, 0x00000000,0x9f9f9f9f,0xffffffff, 0x00000000,0x8f8f8f8f,0xffffffff,
  423.                          0x00000000,0x7f7f7f7f,0xffffffff, 0x00000000,0x6f6f6f6f,0xffffffff, 0x00000000,0x5f5f5f5f,0xffffffff, 0x00000000,0x4f4f4f4f,0xffffffff,
  424.                          0x00000000,0x3f3f3f3f,0xffffffff, 0x00000000,0x2f2f2f2f,0xffffffff, 0x00000000,0x1f1f1f1f,0xffffffff, 0x00000000,0x0f0f0f0f,0xffffffff,
  425.                          0x00000000,0x00000000,0xffffffff, 0x00000000,0x00000000,0xefefefef, 0x00000000,0x00000000,0xdfdfdfdf, 0x00000000,0x00000000,0xcfcfcfcf,
  426.                          0x00000000,0x00000000,0xbfbfbfbf, 0x00000000,0x00000000,0xafafafaf, 0x00000000,0x00000000,0x9f9f9f9f, 0x00000000,0x00000000,0x8f8f8f8f,
  427.                          0x00000000,0x00000000,0x7f7f7f7f, 0x00000000,0x00000000,0x6f6f6f6f, 0x00000000,0x00000000,0x5f5f5f5f, 0x00000000,0x00000000,0x4f4f4f4f,
  428.                          0x00000000,0x00000000,0x3f3f3f3f, 0x00000000,0x00000000,0x2f2f2f2f, 0x00000000,0x00000000,0x1f1f1f1f, 0x00000000,0x00000000,0x0f0f0f0f,
  429.                          NULL};
  430.  
  431. UWORD __chip ZoomPointer[] = {0x0000,0x0000,0x0100,0x0000,0x0100,0x0000,0x0000,0x0100,
  432.                               0x0000,0x0100,0x0100,0x0100,0x0100,0x0100,0x0000,0x0000,
  433.                               0xCC66,0x3C78,0x0000,0x0000,0x0100,0x0100,0x0100,0x0100,
  434.                               0x0000,0x0100,0x0000,0x0100,0x0100,0x0000,0x0100,0x0000,
  435.                               0x0000,0x0000};
  436.  
  437. struct NewMenu ProgMenu[] = { NM_TITLE,"Project",0,0,0,0,
  438.  
  439.                               NM_ITEM,"About...","A",NM_ITEMDISABLED,0,0,
  440.  
  441.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  442.  
  443.                               NM_ITEM,"Load picture...","L",NM_ITEMDISABLED,0,0,
  444.  
  445.                               NM_ITEM,"Save picture...","S",NM_ITEMDISABLED,0,0,
  446.  
  447.                               NM_ITEM,"Load palette...","K",NM_ITEMDISABLED,0,0,
  448.  
  449.                               NM_ITEM,"Save palette...","J",NM_ITEMDISABLED,0,0,
  450.  
  451.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  452.  
  453.                               NM_ITEM,"Print...","D",NM_ITEMDISABLED,0,0,
  454.  
  455.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  456.  
  457.                               NM_ITEM,"Quit...","Q",NM_ITEMDISABLED,0,0,
  458.  
  459. /***************************************************************************************/
  460.  
  461.                               NM_TITLE,"Options",0,0,0,0,
  462.  
  463.                               NM_ITEM,"Title",0,NM_ITEMDISABLED,0,0,
  464.                               NM_SUB,"Title bar","O",CHECKIT|MENUTOGGLE|CHECKED,0,0,
  465.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  466.                               NM_SUB,"Last time","T",0,0,0,
  467.  
  468.                               NM_ITEM,"Limits...","C",NM_ITEMDISABLED,0,0,
  469.  
  470.                               NM_ITEM,"Iterations",0,NM_ITEMDISABLED,0,0,
  471.                               NM_SUB,"64",0,CHECKIT,~(1<<0),0,
  472.                               NM_SUB,"128",0,CHECKIT,~(1<<1),0,
  473.                               NM_SUB,"192",0,CHECKIT,~(1<<2),0,
  474.                               NM_SUB,"256",0,CHECKIT,~(1<<3),0,
  475.                               NM_SUB,"320",0,CHECKIT|CHECKED,~(1<<4),0,
  476.                               NM_SUB,"384",0,CHECKIT,~(1<<5),0,
  477.                               NM_SUB,"448",0,CHECKIT,~(1<<6),0,
  478.                               NM_SUB,"512",0,CHECKIT,~(1<<7),0,
  479.                               NM_SUB,"1024",0,CHECKIT,~(1<<8),0,
  480.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  481.                               NM_SUB,"Custom...","I",CHECKIT,~(1<<10),0,
  482.  
  483.                               NM_ITEM,"Priority",0,0,0,0,
  484.                               NM_SUB,"-5","%",CHECKIT,~(1<<0),0,
  485.                               NM_SUB,"-4","$",CHECKIT,~(1<<1),0,
  486.                               NM_SUB,"-3","£",CHECKIT,~(1<<2),0,
  487.                               NM_SUB,"-2","\"",CHECKIT,~(1<<3),0,
  488.                               NM_SUB,"-1","!",CHECKIT,~(1<<4),0,
  489.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  490.                               NM_SUB," 0","0",CHECKIT|CHECKED,~(1<<6),0,
  491.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  492.                               NM_SUB,"+1","1",CHECKIT,~(1<<8),0,
  493.                               NM_SUB,"+2","2",CHECKIT,~(1<<9),0,
  494.                               NM_SUB,"+3","3",CHECKIT,~(1<<10),0,
  495.                               NM_SUB,"+4","4",CHECKIT,~(1<<11),0,
  496.                               NM_SUB,"+5","5",CHECKIT,~(1<<12),0,
  497.  
  498.                               NM_ITEM,"Color mapping",0,0,0,0,
  499.                               NM_SUB,"Repeated",0,CHECKIT,~(1<<0),0,
  500.                               NM_SUB,"Spread",0,CHECKIT|CHECKED,~(1<<1),0,
  501.  
  502.                               NM_ITEM,"Precision",0,0,0,0,
  503.                               NM_SUB,"Integer",0,CHECKIT|CHECKED,~(1<<0),0,
  504.                               NM_SUB,"Real",0,CHECKIT,~(1<<1),0,
  505.  
  506. /***************************************************************************************/
  507.  
  508.                               NM_TITLE,"Calculate",0,0,0,0,
  509.  
  510.                               NM_ITEM,"PreView","W",NM_ITEMDISABLED,0,0,
  511.  
  512.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  513.  
  514.                               NM_ITEM,"ReCalculate","R",NM_ITEMDISABLED,0,0,
  515.  
  516.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  517.  
  518.                               NM_ITEM,"Undo","U",NM_ITEMDISABLED,0,0,
  519.  
  520.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  521.  
  522.                               NM_ITEM,"Zoom","Z",NM_ITEMDISABLED,0,0,
  523.  
  524.                               NM_ITEM,"Stop","X",0,0,0,
  525.  
  526. /***************************************************************************************/
  527.  
  528.                               NM_TITLE,"Video",0,0,0,0,
  529.  
  530.                               NM_ITEM,"Cycle",0,NM_ITEMDISABLED,0,0,
  531.                               NM_SUB,"Forward",">",0,0,0,
  532.                               NM_SUB,"Backward","<",0,0,0,
  533.                               NM_SUB,NM_BARLABEL,0,0,0,0,
  534.                               NM_SUB,"Delay...","-",0,0,0,
  535.  
  536.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  537.  
  538.                               NM_ITEM,"Palette...","P",NM_ITEMDISABLED,0,0,
  539.  
  540.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  541.  
  542.                               NM_ITEM,"Screen mode...","V",NM_ITEMDISABLED,0,0,
  543.  
  544.                               NM_ITEM,NM_BARLABEL,0,0,0,0,
  545.  
  546.                               NM_ITEM,"Font settings...","F",NM_ITEMDISABLED,0,0,
  547.  
  548.                               NM_END,0,0,0,0,0 };
  549.  
  550.  
  551. struct Menu *MAINMENU = NULL;
  552.  
  553. struct BitMap *MYBITMAP = NULL;
  554.  
  555. struct Task *THISTASK = NULL;
  556.  
  557. struct TextFont *NEWFONT = NULL;
  558.  
  559. struct ILBMInfo MYILBM;
  560.  
  561. struct MandelChunk MANDChunk;
  562.  
  563. struct MandelChunk *MANDChunkTmp = NULL;
  564.  
  565. LONG IlbmProps [] = { ID_ILBM, ID_BMHD, ID_ILBM, ID_CMAP, ID_ILBM, ID_CAMG, ID_ILBM, ID_MAND, TAG_END };
  566.  
  567. LONG IlbmCollects [] = { TAG_END };
  568.  
  569. LONG IlbmStops [] = { ID_ILBM, ID_BODY, TAG_END };
  570.  
  571. #ifdef __USE_FPU
  572.  
  573. IMPORT WORD __asm MandFPU (register __d0 WORD,register __fp0 long double,register __fp1 long double);
  574.  
  575. #endif
  576.  
  577. IMPORT WORD __asm MandINT (register __d0 WORD,register __d1 LONG,register __d2 LONG);
  578.  
  579. IMPORT BOOL ModifyPalette (struct Window *,WORD,WORD,WORD,WORD,ULONG *);
  580.  
  581. IMPORT BOOL Cycle (struct Window *,ULONG,BOOL);
  582.  
  583. IMPORT LONG QueryMandPic (struct ILBMInfo *,struct MandelChunk **,UBYTE *);
  584.  
  585. IMPORT LONG LoadMandPic (struct ILBMInfo *,UBYTE *);
  586.  
  587. IMPORT LONG SaveMandPic (struct ILBMInfo *,struct Chunk *,struct Chunk *,UBYTE *);
  588.  
  589. IMPORT LONG LoadPalette (struct ILBMInfo *,UBYTE *);
  590.  
  591. IMPORT LONG SavePalette (struct ILBMInfo *,struct Chunk *,UBYTE *);
  592.  
  593. VOID PutPointer (struct Window *Win,UWORD *PointerImage,LONG Width,LONG Height,LONG XOrigin,LONG YOrigin,UBYTE Type)
  594. {
  595.   switch (Type)
  596.   {
  597.      case CLEAR_POINTER:  SetWindowPointer (Win,TAG_END);
  598.  
  599.                           break;
  600.  
  601.      case BUSY_POINTER:   SetWindowPointer (Win,WA_BusyPointer,TRUE,TAG_END);
  602.  
  603.                           break;
  604.  
  605.      case ZOOM_POINTER:   SetPointer (Win,PointerImage,Height,Width,XOrigin,YOrigin);
  606.   }
  607. }
  608.  
  609. UBYTE GetMaxPlanes (ULONG ModeID)
  610. {
  611. DisplayInfoHandle DisplayHandle;
  612.  
  613. struct DimensionInfo DimensionInfo;
  614.  
  615. UBYTE Planes = 0;
  616.  
  617.   DisplayHandle = FindDisplayInfo (ModeID);
  618.  
  619.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DimensionInfo,sizeof (struct DimensionInfo),DTAG_DIMS,ModeID))
  620.   {
  621.      Planes = DimensionInfo.MaxDepth;
  622.   }
  623.  
  624.   else Fail (DimensionInfoError,20L);
  625.  
  626.   return Planes;
  627. }
  628.  
  629. LONG CheckGFX (VOID)
  630. {
  631. DisplayInfoHandle DisplayHandle;
  632.  
  633. struct DisplayInfo DisplayInfo;
  634.  
  635. BOOL AGA = FALSE,RTG = FALSE;
  636.  
  637. ULONG ModeID = (ULONG) INVALID_ID;
  638.  
  639.   if (GetMaxPlanes (LORES_KEY) == MAX_DEPTH) AGA = TRUE;
  640.  
  641.   while (((ModeID = NextDisplayInfo (ModeID)) != INVALID_ID) && RTG == FALSE)
  642.   {
  643.         DisplayHandle = FindDisplayInfo (ModeID);
  644.  
  645.         if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
  646.         {
  647.            if ((DisplayInfo.PropertyFlags & DIPF_IS_FOREIGN) && (GetMaxPlanes (ModeID) >= MAX_DEPTH)) RTG = TRUE;
  648.         }
  649.   }
  650.  
  651.   if (RTG && AGA) return 3L;
  652.  
  653.   if (RTG) return 2L;
  654.  
  655.   if (AGA) return 1L;
  656.  
  657.   return NULL;
  658. }
  659.  
  660. BOOL CheckEHB (ULONG ModeID)
  661. {
  662. DisplayInfoHandle DisplayHandle;
  663.  
  664. struct DisplayInfo DisplayInfo;
  665.  
  666. BOOL IsEHB = FALSE;
  667.  
  668.   DisplayHandle = FindDisplayInfo (ModeID);
  669.  
  670.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,ModeID))
  671.   {
  672.      if (DisplayInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE) IsEHB = TRUE;
  673.   }
  674.  
  675.   else Fail (DisplayInfoError,20L);
  676.  
  677.   return IsEHB;
  678. }
  679.  
  680. ULONG CheckFPU (UWORD CpuFlags)
  681. {
  682.   if (AFF_68060 & CpuFlags) return 68884L;
  683.  
  684.   if (AFF_FPU40 & CpuFlags) return 68883L;
  685.  
  686.   if (AFF_68882 & CpuFlags) return 68882L;
  687.  
  688.   if (AFF_68881 & CpuFlags) return 68881L;
  689.  
  690.   return NULL;
  691. }
  692.  
  693. VOID CloseDisplay (struct ILBMInfo *Ilbm,CPTR *VInfo)
  694. {
  695.   if (WMASK & MASK)
  696.   {
  697.      ClearMenuStrip (Ilbm->win);
  698.  
  699.      PutPointer (Ilbm->win,0,0,0,0,0,CLEAR_POINTER);
  700.  
  701.      CloseWindow (Ilbm->win);
  702.  
  703.      Ilbm->win = NULL;
  704.  
  705.      Ilbm->wrp = NULL;
  706.  
  707.      MASK ^= WMASK;
  708.   }
  709.  
  710.   if (VMASK & MASK)
  711.   {
  712.      FreeVisualInfo (VInfo);
  713.  
  714.      MASK ^= VMASK;
  715.   }
  716.  
  717.   if (SMASK & MASK)
  718.   {
  719.      CloseScreen (Ilbm->scr);
  720.  
  721.      Ilbm->scr = NULL;
  722.  
  723.      Ilbm->vp  = NULL;
  724.  
  725.      Ilbm->srp = NULL;
  726.  
  727.      MASK ^= SMASK;
  728.   }
  729.  
  730.   if (FMASK & MASK)
  731.   {
  732.      CloseFont (NEWFONT);
  733.  
  734.      MASK ^= FMASK;
  735.   }
  736. }
  737.  
  738. struct Window *OpenDisplay (struct ILBMInfo *Ilbm,WORD Width,WORD Height,WORD Depth,ULONG ModeID)
  739. {
  740. struct Screen *Scr;
  741.  
  742. struct Window *Win = NULL;
  743.  
  744.   if (Scr = OpenIdScreen (Ilbm,Width,Height,Depth,ModeID))
  745.   {
  746.      Win = OpenWindowTags (NULL,
  747.                            WA_Left,Scr->LeftEdge,
  748.                            WA_Top,Scr->TopEdge,
  749.                            WA_Width,Scr->Width,
  750.                            WA_Height,Scr->Height,
  751.                            WA_ScreenTitle,VERSION,
  752.                            WA_CustomScreen,Scr,
  753.                            WA_IDCMP,IDCMP_STANDARD,
  754.                            WA_Flags,WFLG_STANDARD,
  755.                            WA_MouseQueue,1L,
  756.                            WA_BusyPointer,TRUE,
  757.                            TAG_END);
  758.  
  759.      if (! Win)
  760.      {
  761.         if (Scr) CloseScreen (Scr);
  762.  
  763.         return NULL;
  764.      }
  765.  
  766.      Ilbm->scr = Scr;
  767.  
  768.      Ilbm->win = Win;
  769.  
  770.      Ilbm->vp  = &(Scr->ViewPort);
  771.  
  772.      Ilbm->srp = &(Scr->RastPort);
  773.  
  774.      Ilbm->wrp = Win->RPort;
  775.  
  776.      Ilbm->Bmhd.w = Ilbm->win->Width;
  777.  
  778.      Ilbm->Bmhd.h = Ilbm->win->Height;
  779.  
  780.      Ilbm->Bmhd.nPlanes = Ilbm->wrp->BitMap->Depth;
  781.   }
  782.  
  783.   return (Win);
  784. }
  785.  
  786. struct Screen *OpenIdScreen (struct ILBMInfo *Ilbm,WORD Width,WORD Height,WORD Depth,ULONG ModeID)
  787. {
  788. struct Rectangle Spos,DClip,TxtO,StdO,MaxO,UClip;
  789.  
  790. struct Rectangle *UClipp;
  791.  
  792. struct Screen *Scr;
  793.  
  794. LONG ErrorCode = NULL,TryNew;
  795.  
  796. ULONG BitMapTag,PassedTags;
  797.  
  798.   if (! Ilbm) return (NULL);
  799.  
  800.   TryNew = ((QueryOverscan (ModeID,&TxtO,OSCAN_TEXT)) && (QueryOverscan (ModeID,&StdO,OSCAN_STANDARD)) && (QueryOverscan (ModeID,&MaxO,OSCAN_MAX)));
  801.  
  802.   if (TryNew)
  803.   {
  804.      if (Ilbm->Video) Ilbm->ucliptype = OSCAN_VIDEO;
  805.  
  806.      if ((Ilbm->ucliptype) && (QueryOverscan (ModeID,&UClip,(LONG) Ilbm->ucliptype))) UClipp = &UClip;
  807.  
  808.      else UClipp = NULL;
  809.  
  810.      ClipIt (Width,Height,&Spos,&DClip,&TxtO,&StdO,&MaxO,UClipp,Ilbm->IFFPFlags & IFFPF_NOCENTER ? TRUE : FALSE);
  811.  
  812.      BitMapTag = ((Ilbm->brbitmap) && (Ilbm->stype & CUSTOMBITMAP)) ? SA_BitMap : TAG_IGNORE;
  813.  
  814.      PassedTags = Ilbm->stags ? TAG_MORE : TAG_IGNORE;
  815.  
  816.      Scr = OpenScreenTags (NULL,
  817.                            SA_DisplayID,   ModeID,
  818.                            SA_Type,        Ilbm->stype,
  819.                            SA_Top,         Spos.MinY,
  820.                            SA_Left,        Spos.MinX,
  821.                            SA_Width,       Width,
  822.                            SA_Height,      Height,
  823.                            SA_Depth,       Depth,
  824.                            SA_DClip,       &DClip,
  825.                            SA_AutoScroll,  Ilbm->Autoscroll,
  826.                            SA_Colors32,    PALETTE,
  827.                            SA_Pens,        PENS,
  828.                            SA_Interleaved, TRUE,
  829.                            SA_Font,        &MYFONTSTRUCT,
  830.                            SA_Title,       VERSION,
  831.                            SA_ErrorCode,   &ErrorCode,
  832.                            SA_ShowTitle,   Ilbm->TBState,
  833.                            BitMapTag,      Ilbm->brbitmap,
  834.                            PassedTags,     Ilbm->stags,
  835.                            TAG_END);
  836.  
  837.      if (! Scr)
  838.      {
  839.         switch (ErrorCode)
  840.         {
  841.                  case OSERR_NOMONITOR   : Fail (NoMonitor,20L);
  842.  
  843.                                           break;
  844.  
  845.                  case OSERR_NOCHIPS     : Fail (NoChips,20L);
  846.  
  847.                                           break;
  848.  
  849.                  case OSERR_NOMEM       : Fail (NoMem,20L);
  850.  
  851.                                           break;
  852.  
  853.                  case OSERR_NOCHIPMEM   : Fail (NoChipMem,20L);
  854.  
  855.                                           break;
  856.  
  857.                  case OSERR_PUBNOTUNIQUE: Fail (PubNotUnique,20L);
  858.  
  859.                                           break;
  860.  
  861.                  case OSERR_UNKNOWNMODE : Fail (UnknownMode,20L);
  862.  
  863.                                           break;
  864.  
  865.                  case OSERR_TOODEEP     : Fail (ScreenTooDeep,20L);
  866.  
  867.                                           break;
  868.  
  869.                  case OSERR_ATTACHFAIL  : Fail (AttachScreen,20L);
  870.  
  871.                                           break;
  872.  
  873.                  case OSERR_NOTAVAILABLE: Fail (ModeNotAvailableError,20L);
  874.  
  875.                                           break;
  876.  
  877.                  default                : Fail (UnknownScrError,20L);
  878.  
  879.                                           break;
  880.         }
  881.  
  882.         return NULL;
  883.      }
  884.   }
  885.  
  886.   else return NULL;
  887.  
  888.   if (Ilbm->Notransb)
  889.   {
  890.      VideoControlTags (Scr->ViewPort.ColorMap,VTAG_BORDERNOTRANS_SET,TRUE,TAG_END);
  891.  
  892.      MakeScreen (Scr);
  893.  
  894.      RethinkDisplay ();
  895.   }
  896.  
  897.   return (Scr);
  898. }
  899.  
  900. ULONG ModeFallBack (ULONG OldModeID,WORD Width,WORD Height,WORD Depth)
  901. {
  902. ULONG NewModeID = HIRESLACE_KEY,ModeID;
  903.  
  904.   ModeID = BestModeID (BIDTAG_DIPFMustHave,(OldModeID & EXTRA_HALFBRITE ? DIPF_IS_EXTRAHALFBRITE : 0),
  905.                        BIDTAG_NominalWidth,Width,
  906.                        BIDTAG_NominalHeight,Height,
  907.                        BIDTAG_DesiredWidth,Width,
  908.                        BIDTAG_DesiredHeight,Height,
  909.                        BIDTAG_Depth,Depth,
  910.                        BIDTAG_SourceID,(FindDisplayInfo (OldModeID) ? OldModeID : (OldModeID & (~(MONITOR_ID_MASK|SPRITES|GENLOCK_AUDIO|GENLOCK_VIDEO|VP_HIDE)))),
  911.                        TAG_END);
  912.  
  913.  
  914.   if (ModeID != INVALID_ID) NewModeID = ModeID;
  915.  
  916.   return (NewModeID);
  917. }
  918.  
  919. VOID ClipIt (WORD wide,WORD high,struct Rectangle *spos,struct Rectangle *dclip,struct Rectangle *txto, struct Rectangle *stdo,struct Rectangle *maxo, struct Rectangle *uclip,BOOL NoCenter)
  920. {
  921. struct Rectangle *besto;
  922.  
  923. WORD minx, maxx, miny, maxy;
  924.  
  925. WORD txtw, txth, stdw, stdh, bestw, besth;
  926.  
  927.     /* get the txt, std and max widths and heights */
  928.  
  929.     txtw = txto->MaxX - txto->MinX + 1;
  930.  
  931.     txth = txto->MaxY - txto->MinY + 1;
  932.  
  933.     stdw = stdo->MaxX - stdo->MinX + 1;
  934.  
  935.     stdh = stdo->MaxY - stdo->MinY + 1;
  936.  
  937.     if ((wide <= txtw) && (high <= txth))
  938.     {
  939.     besto = txto;
  940.  
  941.     bestw = txtw;
  942.  
  943.     besth = txth;
  944.     }
  945.  
  946.     else
  947.     {
  948.     besto = stdo;
  949.  
  950.     bestw = stdw;
  951.  
  952.     besth = stdh;
  953.     }
  954.  
  955.     if (uclip)
  956.     {
  957.     *dclip = *uclip;
  958.  
  959.         spos->MinX = uclip->MinX;
  960.  
  961.     spos->MinY = uclip->MinY;
  962.     }
  963.  
  964.     else
  965.     {
  966.     /* CENTER the screen based on best oscan prefs
  967.      * but confine dclip within max oscan limits
  968.      *
  969.      * FIX MinX first */
  970.  
  971.     spos->MinX = minx = besto->MinX - ((wide - bestw) >> 1);
  972.  
  973.     maxx = wide + minx - 1;
  974.  
  975.     if (maxx > maxo->MaxX)  maxx = maxo->MaxX;    /* too right */
  976.  
  977.     if (minx < maxo->MinX)
  978.         {
  979.         minx = maxo->MinX;    /* too left  */
  980.  
  981.         /* if we want left edge of screen not clipped */
  982.  
  983.         if (NoCenter) spos->MinX = minx;
  984.     }
  985.  
  986.     /* FIX MinY */
  987.  
  988.     spos->MinY = miny = besto->MinY - ((high - besth) >> 1);
  989.  
  990.     /* if lower than top of txto, move up */
  991.  
  992.     spos->MinY = miny = MIN (spos->MinY,txto->MinY);
  993.  
  994.     maxy = high + miny - 1;
  995.  
  996.     if (maxy > maxo->MaxY)  maxy = maxo->MaxY;    /* too down  */
  997.  
  998.     if (miny < maxo->MinY)
  999.         {
  1000.        miny = maxo->MinY;    /* too up    */
  1001.  
  1002.        /* if we want top of screen not clipped */
  1003.  
  1004.        if (NoCenter) spos->MinY = miny;
  1005.         }
  1006.  
  1007.     /* SET up dclip */
  1008.  
  1009.     dclip->MinX = minx;
  1010.  
  1011.     dclip->MinY = miny;
  1012.  
  1013.     dclip->MaxX = maxx;
  1014.  
  1015.     dclip->MaxY = maxy;
  1016.     }
  1017. }
  1018.  
  1019. LONG MakeDisplay (struct ILBMInfo *Ilbm)
  1020. {
  1021.   if (Ilbm->IFFPFlags & IFFPF_USERMODE)    Ilbm->camg = Ilbm->usermodeid;
  1022.  
  1023.   Ilbm->Bmhd.w = MAX (MIN_WIDTH,Ilbm->Bmhd.w);
  1024.  
  1025.   Ilbm->Bmhd.h = MAX (MIN_HEIGHT,Ilbm->Bmhd.h);
  1026.  
  1027.   if (ModeNotAvailable (Ilbm->camg) || (Ilbm->IFFPFlags & IFFPF_BESTFIT))
  1028.  
  1029.      Ilbm->camg = ModeFallBack (Ilbm->camg,Ilbm->Bmhd.w,Ilbm->Bmhd.h,Ilbm->Bmhd.nPlanes);
  1030.  
  1031.   Ilbm->Bmhd.nPlanes = MAX (MIN_DEPTH,Ilbm->Bmhd.nPlanes);
  1032.  
  1033.   if (Ilbm->Bmhd.nPlanes > GetMaxPlanes (Ilbm->camg)) Ilbm->Bmhd.nPlanes = GetMaxPlanes (Ilbm->camg);
  1034.  
  1035.   if (! (OpenDisplay (Ilbm,MAX (Ilbm->Bmhd.pageWidth,Ilbm->Bmhd.w),MAX (Ilbm->Bmhd.pageHeight,Ilbm->Bmhd.h),Ilbm->Bmhd.nPlanes,Ilbm->camg))) return NULL;
  1036.  
  1037.   MASK |= SMASK;
  1038.  
  1039.   MASK |= WMASK;
  1040.  
  1041.   if (! (VINFO = GetVisualInfo (Ilbm->scr,TAG_END)))
  1042.   {
  1043.      Fail (VisualInfoError,20L);
  1044.  
  1045.      return NULL;
  1046.   }
  1047.  
  1048.   MASK |= VMASK;
  1049.  
  1050.   if (! (LayoutMenus (MAINMENU,VINFO,GTMN_TextAttr,&MYFONTSTRUCT,GTMN_NewLookMenus,TRUE,TAG_END)))
  1051.   {
  1052.      Fail (FontError,20L);
  1053.  
  1054.      return NULL;
  1055.   }
  1056.  
  1057.   SetMenuStrip (Ilbm->win,MAINMENU);
  1058.  
  1059.   Ilbm->EHB = CheckEHB (Ilbm->camg);
  1060.  
  1061.   return (Ilbm->vp->ColorMap->Count);
  1062. }
  1063.  
  1064. VOID ShowTime (struct Window *Win,TEXT *String,ULONG Secs)
  1065. {
  1066.   sprintf (BAR_STRING,"%s %uh %um %us - Average speed: %.3lf Pix/sec",String,Secs / 3600L,(Secs / 60L) % 60L,Secs % 60L,(DOUBLE) ((Win->Width - Win->LeftEdge) * (Win->Height - Win->TopEdge)) / (DOUBLE) Secs);
  1067.  
  1068.   SetWindowTitles (Win,(TEXT *) ~0,BAR_STRING);
  1069. }
  1070.  
  1071. VOID SaveCoords (VOID)
  1072. {
  1073.   URMIN = RMIN;
  1074.  
  1075.   URMAX = RMAX;
  1076.  
  1077.   UIMIN = IMIN;
  1078.  
  1079.   UIMAX = IMAX;
  1080. }
  1081.  
  1082. VOID RestoreCoords (VOID)
  1083. {
  1084.   RMIN = URMIN;
  1085.  
  1086.   RMAX = URMAX;
  1087.  
  1088.   IMIN = UIMIN;
  1089.  
  1090.   IMAX = UIMAX;
  1091. }
  1092.  
  1093. BOOL NewCoords (struct Window *Win,WORD a1,WORD b1,WORD a2,WORD b2)
  1094. {
  1095. long double KReal,KImag;
  1096.  
  1097.   if (((a2 - a1) < 2L) || ((b2 - b1) < 2L)) return FALSE;
  1098.  
  1099.   KReal = fabs (RMAX-RMIN) / ((long double) Win->Width);
  1100.  
  1101.   KImag = fabs (IMAX-IMIN) / ((long double) Win->Height);
  1102.  
  1103.   SaveCoords ();
  1104.  
  1105.   RMAX = RMIN + ((long double) a2 * KReal);
  1106.  
  1107.   IMIN = IMAX - ((long double) b2 * KImag);
  1108.  
  1109.   RMIN += ((long double) a1 * KReal);
  1110.  
  1111.   IMAX -= ((long double) b1 * KImag);
  1112.  
  1113.   return TRUE;
  1114. }
  1115.  
  1116. VOID AdjustRatio (long double *RMin,long double *IMax,long double *RMax,long double *IMin,WORD ScrWidth,WORD ScrHeight,BOOL KeepReal)
  1117. {
  1118. long double RWidth,IHeight,RCenter,ICenter;
  1119.  
  1120.   IHeight = *IMax - *IMin;
  1121.  
  1122.   RWidth  = *RMax - *RMin;
  1123.  
  1124.   if (KeepReal)
  1125.   {
  1126.      ICenter = *IMin + (IHeight / 2.0);
  1127.  
  1128.      IHeight = (RWidth * ScrHeight) / ScrWidth;
  1129.  
  1130.      *IMax = ICenter + (IHeight / 2.0);
  1131.  
  1132.      *IMin = ICenter - (IHeight / 2.0);
  1133.   }
  1134.  
  1135.   else
  1136.   {
  1137.      RCenter = *RMin + (RWidth / 2.0);
  1138.  
  1139.      RWidth = (IHeight * ScrWidth) / ScrHeight;
  1140.  
  1141.      *RMax = RCenter + (RWidth / 2.0);
  1142.  
  1143.      *RMin = RCenter - (RWidth / 2.0);
  1144.   }
  1145. }
  1146.  
  1147. LONG About (struct Window *Win)
  1148. {
  1149. struct EasyStruct MyReq_1 = { sizeof (struct EasyStruct),0,"Informations requester","     " VERSION COPYRIGHT "\n\n           " AUTHOR "\n\n" ADDRESS EMAIL "\n\n\n    This program is GiftWare !     \n\n","Ok|More..." };
  1150.  
  1151. struct EasyStruct MyReq_2 = { sizeof (struct EasyStruct),0,"Workgroup","      Greetings & thanks to\n\n  Sergio Tassi: Palettes,GUILook\n\n  Giuseppe Staffelli: RTG Debug\n\n  Paolo Alvino: Docs\n\n\nSupport Amiga ShareWare, please !\n\n","Ok" };
  1152.  
  1153. LONG More;
  1154.  
  1155.   More = EasyRequest (Win,&MyReq_1,0);
  1156.  
  1157.   if (! More) EasyRequest (Win,&MyReq_2,0);
  1158.  
  1159.   return More;
  1160. }
  1161.  
  1162. LONG Choice (struct Window *Win,TEXT *Title,TEXT *String)
  1163. {
  1164. struct EasyStruct MyReq = { sizeof (struct EasyStruct),NULL,0,0,"Yes|No" };
  1165.  
  1166.   MyReq.es_Title = Title;
  1167.  
  1168.   MyReq.es_TextFormat = String;
  1169.  
  1170.   return EasyRequest (Win,&MyReq,0);
  1171. }
  1172.  
  1173. BOOL ShowCoords (struct Window *Win)
  1174. {
  1175. struct Gadget *GadList = NULL,*StringGad_1,*StringGad_2,*StringGad_3,*StringGad_4;
  1176.  
  1177. struct Gadget *MyButtonGad,*MyCheckBoxGad,*MyGad = NULL;
  1178.  
  1179. struct Window *GadWin;
  1180.  
  1181. struct IntuiMessage *Message;
  1182.  
  1183. BOOL NewLimits = FALSE,Exit = FALSE,Accept = FALSE,Reset = FALSE,Ratio = FALSE,KeepReal = TRUE;
  1184.  
  1185. TEXT String [MAXCHARS];
  1186.  
  1187. UWORD MyCode = 0;
  1188.  
  1189. ULONG MyClass = NULL;
  1190.  
  1191. long double Tmp_RMIN = RMIN,Tmp_IMAX = IMAX,Tmp_RMAX = RMAX,Tmp_IMIN = IMIN;
  1192.  
  1193.   TEXTGAD.ng_VisualInfo = BUTTONGAD.ng_VisualInfo = CHECKBOXGAD.ng_VisualInfo  = VINFO;
  1194.  
  1195.   MyCheckBoxGad = CreateContext (&GadList);
  1196.  
  1197.   CHECKBOXGAD.ng_LeftEdge   = 14;
  1198.  
  1199.   CHECKBOXGAD.ng_TopEdge    = 120;
  1200.  
  1201.   CHECKBOXGAD.ng_Width      = 20;
  1202.  
  1203.   CHECKBOXGAD.ng_Height     = 20;
  1204.  
  1205.   CHECKBOXGAD.ng_GadgetText = "_Keep real limits for aspect ratio";
  1206.  
  1207.   CHECKBOXGAD.ng_Flags      = PLACETEXT_RIGHT;
  1208.  
  1209.   CHECKBOXGAD.ng_GadgetID   = KEEP;
  1210.  
  1211.   MyCheckBoxGad = CreateGadget (CHECKBOX_KIND,MyCheckBoxGad,&CHECKBOXGAD,GTCB_Checked,TRUE,GT_Underscore,'_',TAG_END);
  1212.  
  1213.   BUTTONGAD.ng_LeftEdge   = 14;
  1214.  
  1215.   BUTTONGAD.ng_TopEdge    = 140;
  1216.  
  1217.   BUTTONGAD.ng_Width      = 80;
  1218.  
  1219.   BUTTONGAD.ng_Height     = 20;
  1220.  
  1221.   BUTTONGAD.ng_GadgetText = "_Accept";
  1222.  
  1223.   BUTTONGAD.ng_GadgetID   = ACCEPT;
  1224.  
  1225.   MyButtonGad = CreateGadget (BUTTON_KIND,MyCheckBoxGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1226.  
  1227.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1228.  
  1229.   BUTTONGAD.ng_GadgetText = "Rat_io";
  1230.  
  1231.   BUTTONGAD.ng_GadgetID   = RATIO;
  1232.  
  1233.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1234.  
  1235.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1236.  
  1237.   BUTTONGAD.ng_GadgetText = "Re_set";
  1238.  
  1239.   BUTTONGAD.ng_GadgetID   = RESET;
  1240.  
  1241.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1242.  
  1243.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1244.  
  1245.   BUTTONGAD.ng_GadgetText = "_Cancel";
  1246.  
  1247.   BUTTONGAD.ng_GadgetID   = CANCEL;
  1248.  
  1249.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1250.  
  1251.   BUTTONGAD.ng_LeftEdge  += (14 + BUTTONGAD.ng_Width);
  1252.  
  1253.   TEXTGAD.ng_LeftEdge     = 108;
  1254.  
  1255.   TEXTGAD.ng_TopEdge      = 14;
  1256.  
  1257.   TEXTGAD.ng_Width        = 174;
  1258.  
  1259.   TEXTGAD.ng_Height       = 14;
  1260.  
  1261.   TEXTGAD.ng_GadgetText   = "_Left";
  1262.  
  1263.   TEXTGAD.ng_Flags        = PLACETEXT_LEFT;
  1264.  
  1265.   sprintf (String,"%+2.16lf",RMIN);
  1266.  
  1267.   StringGad_1 = CreateGadget (STRING_KIND,MyButtonGad,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1268.  
  1269.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1270.  
  1271.   TEXTGAD.ng_GadgetText   = "_Top ";
  1272.  
  1273.   sprintf (String,"%+2.16lf",IMAX);
  1274.  
  1275.   StringGad_2 = CreateGadget (STRING_KIND,StringGad_1,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1276.  
  1277.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1278.  
  1279.   TEXTGAD.ng_GadgetText   = "_Right";
  1280.  
  1281.   TEXTGAD.ng_Flags        = PLACETEXT_RIGHT;
  1282.  
  1283.   sprintf (String,"%+2.16lf",RMAX);
  1284.  
  1285.   StringGad_3 = CreateGadget (STRING_KIND,StringGad_2,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1286.  
  1287.   TEXTGAD.ng_TopEdge     += (14 + TEXTGAD.ng_Height);
  1288.  
  1289.   TEXTGAD.ng_GadgetText   = "_Bottom";
  1290.  
  1291.   sprintf (String,"%+2.16lf",IMIN);
  1292.  
  1293.   StringGad_4 = CreateGadget (STRING_KIND,StringGad_3,&TEXTGAD,GTST_String,String,STRINGA_ReplaceMode,TRUE,GTST_MaxChars,MAXCHARS,GT_Underscore,'_',TAG_END);
  1294.  
  1295.   if (StringGad_4)
  1296.   {
  1297.      GadWin = OpenWindowTags (NULL,WA_Left,Win->LeftEdge + 10,
  1298.                                    WA_Top,Win->TopEdge + 15,
  1299.                                    WA_Width,BUTTONGAD.ng_LeftEdge + 10,
  1300.                                    WA_Height,BUTTONGAD.ng_TopEdge + BUTTONGAD.ng_Height + 14 + 15,
  1301.                                    WA_Title,"Coordinates requester",
  1302.                                    WA_ScreenTitle,"Insert new range...",
  1303.                                    WA_CustomScreen,Win->WScreen,
  1304.                                    WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW|IDCMP_VANILLAKEY|STRINGIDCMP|BUTTONIDCMP,
  1305.                                    WA_Flags,WFLG_ACTIVATE|WFLG_DRAGBAR|WFLG_SIMPLE_REFRESH|WFLG_GIMMEZEROZERO|WFLG_RMBTRAP,
  1306.                                    WA_Gadgets,GadList,
  1307.                                    TAG_END);
  1308.      if (GadWin)
  1309.      {
  1310.         GT_RefreshWindow (GadWin,NULL);
  1311.  
  1312.         do {  WaitPort (GadWin->UserPort);
  1313.  
  1314.               if (Message = (struct IntuiMessage *) GT_GetIMsg (GadWin->UserPort))
  1315.               {
  1316.                      MyGad = (struct Gadget *) Message->IAddress;
  1317.  
  1318.                      MyClass = Message->Class;
  1319.  
  1320.                      MyCode = Message->Code;
  1321.  
  1322.                      GT_ReplyIMsg ((struct IntuiMessage *) Message);
  1323.               }
  1324.  
  1325.               switch (MyClass)
  1326.               {
  1327.                      case IDCMP_REFRESHWINDOW : GT_BeginRefresh (GadWin);
  1328.  
  1329.                                                 GT_EndRefresh (GadWin,TRUE);
  1330.  
  1331.                                                 break;
  1332.  
  1333.                      case IDCMP_VANILLAKEY    : switch (ToUpper ((ULONG) MyCode))
  1334.                                                 {
  1335.                                                        case 'L' : ActivateGadget (StringGad_1,GadWin,0);
  1336.  
  1337.                                                                   break;
  1338.  
  1339.                                                        case 'T' : ActivateGadget (StringGad_2,GadWin,0);
  1340.  
  1341.                                                                   break;
  1342.  
  1343.                                                        case 'R' : ActivateGadget (StringGad_3,GadWin,0);
  1344.  
  1345.                                                                   break;
  1346.  
  1347.                                                        case 'B' : ActivateGadget (StringGad_4,GadWin,0);
  1348.  
  1349.                                                                   break;
  1350.  
  1351.                                                        case 'A' : Accept = TRUE;
  1352.  
  1353.                                                                   break;
  1354.  
  1355.                                                        case 'I' : Ratio = TRUE;
  1356.  
  1357.                                                                   break;
  1358.  
  1359.                                                        case 'S' : Reset = TRUE;
  1360.  
  1361.                                                                   break;
  1362.  
  1363.                                                        case 'C' : Exit = TRUE;
  1364.  
  1365.                                                                   break;
  1366.  
  1367.                                                        case 'K' : KeepReal = ! KeepReal;
  1368.  
  1369.                                                                   GT_SetGadgetAttrs (MyCheckBoxGad,GadWin,NULL,GTCB_Checked,KeepReal,TAG_END);
  1370.  
  1371.                                                                   break;
  1372.  
  1373.                                                     case VAN_ESC: Exit = TRUE;
  1374.                                                 }
  1375.  
  1376.                                                         break;
  1377.  
  1378.                      case IDCMP_GADGETUP      : switch (MyGad->GadgetID)
  1379.                                                 {
  1380.                                                        case ACCEPT:   Accept = TRUE;
  1381.  
  1382.                                                                       break;
  1383.  
  1384.                                                        case  RATIO:   Ratio = TRUE;
  1385.  
  1386.                                                                       break;
  1387.  
  1388.                                                        case  RESET:   Reset = TRUE;
  1389.  
  1390.                                                                       break;
  1391.  
  1392.                                                        case   KEEP:   KeepReal = ! KeepReal;
  1393.  
  1394.                                                                       break;
  1395.  
  1396.                                                        case CANCEL:   Exit = TRUE;
  1397.                                                 }
  1398.  
  1399.                                                 break;
  1400.  
  1401.                      case IDCMP_CLOSEWINDOW   : Exit = TRUE;
  1402.               }
  1403.  
  1404.               if (Accept)
  1405.               {
  1406.                  sscanf (((struct StringInfo *) StringGad_1->SpecialInfo)->Buffer,"%lf",&Tmp_RMIN);
  1407.  
  1408.                  sscanf (((struct StringInfo *) StringGad_2->SpecialInfo)->Buffer,"%lf",&Tmp_IMAX);
  1409.  
  1410.                  sscanf (((struct StringInfo *) StringGad_3->SpecialInfo)->Buffer,"%lf",&Tmp_RMAX);
  1411.  
  1412.                  sscanf (((struct StringInfo *) StringGad_4->SpecialInfo)->Buffer,"%lf",&Tmp_IMIN);
  1413.  
  1414.                  if ((Tmp_RMIN >= Tmp_RMAX) || (Tmp_IMIN >= Tmp_IMAX)) DisplayBeep (Win->WScreen);
  1415.  
  1416.                  else
  1417.                  {
  1418.                     NewLimits = Exit = TRUE;
  1419.  
  1420.                     SaveCoords ();
  1421.  
  1422.                     RMIN  = Tmp_RMIN;
  1423.  
  1424.                     IMAX  = Tmp_IMAX;
  1425.  
  1426.                     RMAX  = Tmp_RMAX;
  1427.  
  1428.                     IMIN  = Tmp_IMIN;
  1429.                  }
  1430.  
  1431.                  Accept = FALSE;
  1432.               }
  1433.  
  1434.               if (Ratio)
  1435.               {
  1436.                  AdjustRatio (&Tmp_RMIN,&Tmp_IMAX,&Tmp_RMAX,&Tmp_IMIN,Win->Width,Win->Height,KeepReal);
  1437.  
  1438.                  TEXTGAD.ng_Flags = PLACETEXT_LEFT;
  1439.  
  1440.                  sprintf (String,"%+2.16lf",Tmp_RMIN);
  1441.  
  1442.                  GT_SetGadgetAttrs (StringGad_1,GadWin,NULL,GTST_String,String,TAG_END);
  1443.  
  1444.                  sprintf (String,"%+2.16lf",Tmp_IMAX);
  1445.  
  1446.                  GT_SetGadgetAttrs (StringGad_2,GadWin,NULL,GTST_String,String,TAG_END);
  1447.  
  1448.                  sprintf (String,"%+2.16lf",Tmp_RMAX);
  1449.  
  1450.                  TEXTGAD.ng_Flags = PLACETEXT_RIGHT;
  1451.  
  1452.                  GT_SetGadgetAttrs (StringGad_3,GadWin,NULL,GTST_String,String,TAG_END);
  1453.  
  1454.                  sprintf (String,"%+2.16lf",Tmp_IMIN);
  1455.  
  1456.                  GT_SetGadgetAttrs (StringGad_4,GadWin,NULL,GTST_String,String,TAG_END);
  1457.  
  1458.                  Ratio = FALSE;
  1459.               }
  1460.  
  1461.               if (Reset)
  1462.               {
  1463.                  TEXTGAD.ng_Flags = PLACETEXT_LEFT;
  1464.  
  1465.                  sprintf (String,"%+2.16lf",DEF_RMIN);
  1466.  
  1467.                  GT_SetGadgetAttrs (StringGad_1,GadWin,NULL,GTST_String,String,TAG_END);
  1468.  
  1469.                  sprintf (String,"%+2.16lf",DEF_IMAX);
  1470.  
  1471.                  GT_SetGadgetAttrs (StringGad_2,GadWin,NULL,GTST_String,String,TAG_END);
  1472.  
  1473.                  TEXTGAD.ng_Flags = PLACETEXT_RIGHT;
  1474.  
  1475.                  sprintf (String,"%+2.16lf",DEF_RMAX);
  1476.  
  1477.                  GT_SetGadgetAttrs (StringGad_3,GadWin,NULL,GTST_String,String,TAG_END);
  1478.  
  1479.                  sprintf (String,"%+2.16lf",DEF_IMIN);
  1480.  
  1481.                  GT_SetGadgetAttrs (StringGad_4,GadWin,NULL,GTST_String,String,TAG_END);
  1482.  
  1483.                  Reset = FALSE;
  1484.               }
  1485.  
  1486.            } while (Exit == FALSE);
  1487.  
  1488.        CloseWindow (GadWin);
  1489.      }
  1490.  
  1491.      else Fail (WindowGadgetError,15L);
  1492.   }
  1493.  
  1494.   else Fail (GadgetError,15L);
  1495.  
  1496.   FreeGadgets (GadList);
  1497.  
  1498.   return NewLimits;
  1499. }
  1500.  
  1501. ULONG IntegerGad (struct Window *Win,TEXT *TitleWin,TEXT *TitleScr,TEXT *TxtString,ULONG Var)
  1502. {
  1503. struct IntuiMessage *Message;
  1504.  
  1505. struct Gadget *GadList = NULL , *MyIntGad , *MyButtonGad , *MyGad = NULL;
  1506.  
  1507. struct Window *GadWin;
  1508.  
  1509. BOOL Exit = FALSE;
  1510.  
  1511. UWORD MyCode = 0;
  1512.  
  1513. ULONG MyClass = NULL;
  1514.  
  1515.   TEXTGAD.ng_VisualInfo = BUTTONGAD.ng_VisualInfo = VINFO;
  1516.  
  1517.   MyButtonGad = CreateContext (&GadList);
  1518.  
  1519.   BUTTONGAD.ng_LeftEdge   = 20;
  1520.  
  1521.   BUTTONGAD.ng_TopEdge    = 40;
  1522.  
  1523.   BUTTONGAD.ng_Width      = 80;
  1524.  
  1525.   BUTTONGAD.ng_Height     = 20;
  1526.  
  1527.   BUTTONGAD.ng_GadgetText = "_Accept";
  1528.  
  1529.   BUTTONGAD.ng_GadgetID   = ACCEPT;
  1530.  
  1531.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1532.  
  1533.   BUTTONGAD.ng_LeftEdge  += (20 + BUTTONGAD.ng_Width);
  1534.  
  1535.   BUTTONGAD.ng_GadgetText = "_Cancel";
  1536.  
  1537.   BUTTONGAD.ng_GadgetID   = CANCEL;
  1538.  
  1539.   MyButtonGad = CreateGadget (BUTTON_KIND,MyButtonGad,&BUTTONGAD,GT_Underscore,'_',TAG_END);
  1540.  
  1541.   TEXTGAD.ng_LeftEdge     = 120;
  1542.  
  1543.   TEXTGAD.ng_TopEdge      = 10;
  1544.  
  1545.   TEXTGAD.ng_Width        = 60;
  1546.  
  1547.   TEXTGAD.ng_Height       = 14;
  1548.  
  1549.   TEXTGAD.ng_GadgetText   = TxtString;
  1550.  
  1551.   TEXTGAD.ng_Flags        = PLACETEXT_LEFT;
  1552.  
  1553.   MyIntGad = CreateGadget (INTEGER_KIND,MyButtonGad,&TEXTGAD,GTIN_Number,Var,GTIN_MaxChars,6,STRINGA_ReplaceMode,TRUE,GT_Underscore,'_',TAG_END);
  1554.  
  1555.   if (MyIntGad)
  1556.   {
  1557.      GadWin = OpenWindowTags (NULL,WA_Left,Win->LeftEdge + 10,
  1558.                                    WA_Top,Win->TopEdge + 15,
  1559.                                    WA_Width,220,
  1560.                                    WA_Height,80,
  1561.                                    WA_Title,TitleWin,
  1562.                                    WA_ScreenTitle,TitleScr,
  1563.                                    WA_CustomScreen,Win->WScreen,
  1564.                                    WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW|IDCMP_VANILLAKEY|INTEGERIDCMP|BUTTONIDCMP,
  1565.                                    WA_Flags,WFLG_ACTIVATE|WFLG_DRAGBAR|WFLG_SIMPLE_REFRESH|WFLG_GIMMEZEROZERO|WFLG_RMBTRAP,
  1566.                                    WA_Gadgets,GadList,
  1567.                                    TAG_END);
  1568.  
  1569.      if (GadWin)
  1570.      {
  1571.         GT_RefreshWindow (GadWin,NULL);
  1572.  
  1573.         do {  WaitPort (GadWin->UserPort);
  1574.  
  1575.               if (Message = (struct IntuiMessage *) GT_GetIMsg (GadWin->UserPort))
  1576.               {
  1577.                      MyGad = (struct Gadget *) Message->IAddress;
  1578.  
  1579.                      MyClass = Message->Class;
  1580.  
  1581.                      MyCode = Message->Code;
  1582.  
  1583.                      GT_ReplyIMsg ((struct IntuiMessage *) Message);
  1584.               }
  1585.  
  1586.               switch (MyClass)
  1587.               {
  1588.                      case IDCMP_REFRESHWINDOW : GT_BeginRefresh (GadWin);
  1589.  
  1590.                                                 GT_EndRefresh (GadWin,TRUE);
  1591.  
  1592.                                                 break;
  1593.  
  1594.                      case IDCMP_VANILLAKEY    : switch (ToUpper ((ULONG) MyCode))
  1595.                                                 {
  1596.                                                        case 'D' :
  1597.  
  1598.                                                        case 'I' : ActivateGadget (MyIntGad,GadWin,0);
  1599.  
  1600.                                                                   break;
  1601.  
  1602.                                                        case 'A' : Var = ((struct StringInfo *) MyIntGad->SpecialInfo)->LongInt;
  1603.  
  1604.                                                                   Exit = TRUE;
  1605.  
  1606.                                                                   break;
  1607.  
  1608.                                                        case 'C' : Exit = TRUE;
  1609.  
  1610.                                                                   break;
  1611.  
  1612.                                                     case VAN_ESC: Exit = TRUE;
  1613.                                                 }
  1614.  
  1615.                                                 break;
  1616.  
  1617.                      case IDCMP_GADGETUP      : switch (MyGad->GadgetID)
  1618.                                                 {
  1619.                                                         case ACCEPT  : Var = ((struct StringInfo *) MyIntGad->SpecialInfo)->LongInt;
  1620.  
  1621.                                                                        Exit = TRUE;
  1622.  
  1623.                                                                        break;
  1624.  
  1625.                                                         case CANCEL  : Exit = TRUE;
  1626.                                                 }
  1627.  
  1628.                                                 break;
  1629.  
  1630.                      case IDCMP_CLOSEWINDOW   : Exit = TRUE;
  1631.               }
  1632.  
  1633.            } while (Exit == FALSE);
  1634.  
  1635.         CloseWindow (GadWin);
  1636.      }
  1637.  
  1638.      else Fail (WindowError,15L);
  1639.   }
  1640.  
  1641.   else Fail (GadgetError,15L);
  1642.  
  1643.   FreeGadgets (GadList);
  1644.  
  1645.   return Var;
  1646. }
  1647.  
  1648. #ifdef __USE_FPU
  1649.  
  1650. WORD Real (WORD Iterazioni,long double Cre,long double Cim)
  1651. {
  1652.   return MandFPU (Iterazioni,Cre,Cim);
  1653. }
  1654.  
  1655. #else
  1656.  
  1657. WORD Real (WORD Iterazioni,long double Cre,long double Cim)
  1658. {
  1659. register long double zr,zi,zr2,zi2;
  1660.  
  1661.   zi = Cim;
  1662.  
  1663.   zr = Cre;
  1664.  
  1665.   zi2 = Cim * Cim;
  1666.  
  1667.   zr2 = Cre * Cre;
  1668.  
  1669.   while ((zi2 + zr2 <= 4.0))
  1670.   {
  1671.      if (--Iterazioni == 0) break;
  1672.  
  1673.      zi *= zr;
  1674.  
  1675.      zr  = zr2;
  1676.  
  1677.      zi += zi;
  1678.  
  1679.      zr -= zi2;
  1680.  
  1681.      zi += Cim;
  1682.  
  1683.      zr += Cre;
  1684.  
  1685.      zi2 = zi;
  1686.  
  1687.      zr2 = zr;
  1688.  
  1689.      zi2 *= zi2;
  1690.  
  1691.      zr2 *= zr2;
  1692.   }
  1693.  
  1694.   return Iterazioni;
  1695. }
  1696.  
  1697. #endif
  1698.  
  1699. WORD Integer (WORD Iterazioni,long double Cre,long double Cim)
  1700. {
  1701.   return MandINT (Iterazioni,(LONG) (Cre * MAX_POT),(LONG) (Cim * MAX_POT));
  1702. }
  1703.  
  1704. VOID VLine_R_EHB (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1705. {
  1706. REGISTER LONG y;
  1707.  
  1708. ULONG Color;
  1709.  
  1710.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1711.  
  1712.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1713.  
  1714.  for (y = b2; y >= b1; y--)
  1715.  {
  1716.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1717.  
  1718.      if (Color)
  1719.      {
  1720.         Color %= 56L;
  1721.  
  1722.         Color += ((Color > 27L) ? 8L : 4L);
  1723.      }
  1724.  
  1725.      SetAPen (Rp,Color);
  1726.  
  1727.      WritePixel (Rp,x,y);
  1728.  
  1729.      CIM += INCREMIMAG;
  1730.  }
  1731. }
  1732.  
  1733. VOID HLine_R_EHB (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1734. {
  1735. REGISTER LONG x;
  1736.  
  1737. ULONG Color;
  1738.  
  1739.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1740.  
  1741.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1742.  
  1743.  for (x = a1; x <= a2; x++)
  1744.  {
  1745.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1746.  
  1747.      if (Color)
  1748.      {
  1749.         Color %= 56L;
  1750.  
  1751.         Color += ((Color > 27L) ? 8L : 4L);
  1752.      }
  1753.  
  1754.      SetAPen (Rp,Color);
  1755.  
  1756.      WritePixel (Rp,x,y);
  1757.  
  1758.      CRE += INCREMREAL;
  1759.  }
  1760. }
  1761.  
  1762. VOID VLine_R (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1763. {
  1764. REGISTER LONG y;
  1765.  
  1766. ULONG Color;
  1767.  
  1768.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1769.  
  1770.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1771.  
  1772.  for (y = b2; y >= b1; y--)
  1773.  {
  1774.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1775.  
  1776.      if (Color)
  1777.      {
  1778.         Color %= COLOR_PENS;
  1779.  
  1780.         Color += 4L;
  1781.      }
  1782.  
  1783.      SetAPen (Rp,Color);
  1784.  
  1785.      WritePixel (Rp,x,y);
  1786.  
  1787.      CIM += INCREMIMAG;
  1788.  }
  1789. }
  1790.  
  1791. VOID HLine_R (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1792. {
  1793. REGISTER LONG x;
  1794.  
  1795. ULONG Color;
  1796.  
  1797.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1798.  
  1799.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1800.  
  1801.  for (x = a1; x <= a2; x++)
  1802.  {
  1803.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1804.  
  1805.      if (Color)
  1806.      {
  1807.         Color %= COLOR_PENS;
  1808.  
  1809.         Color += 4L;
  1810.      }
  1811.  
  1812.      SetAPen (Rp,Color);
  1813.  
  1814.      WritePixel (Rp,x,y);
  1815.  
  1816.      CRE += INCREMREAL;
  1817.  }
  1818. }
  1819.  
  1820. VOID VLine_S_EHB (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1821. {
  1822. REGISTER LONG y;
  1823.  
  1824. ULONG Color;
  1825.  
  1826.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1827.  
  1828.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1829.  
  1830.  for (y = b2; y >= b1; y--)
  1831.  {
  1832.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1833.  
  1834.      if (Color)
  1835.      {
  1836.         Color *= 56L;
  1837.  
  1838.         Color /= ITERATIONS;
  1839.  
  1840.         Color += ((Color > 27L) ? 8L : 4L);
  1841.      }
  1842.  
  1843.      SetAPen (Rp,Color);
  1844.  
  1845.      WritePixel (Rp,x,y);
  1846.  
  1847.      CIM += INCREMIMAG;
  1848.  }
  1849. }
  1850.  
  1851. VOID HLine_S_EHB (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1852. {
  1853. REGISTER LONG x;
  1854.  
  1855. ULONG Color;
  1856.  
  1857.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1858.  
  1859.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1860.  
  1861.  for (x = a1; x <= a2; x++)
  1862.  {
  1863.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1864.  
  1865.      if (Color)
  1866.      {
  1867.         Color *= 56L;
  1868.  
  1869.         Color /= ITERATIONS;
  1870.  
  1871.         Color += ((Color > 27L) ? 8L : 4L);
  1872.      }
  1873.  
  1874.      SetAPen (Rp,Color);
  1875.  
  1876.      WritePixel (Rp,x,y);
  1877.  
  1878.      CRE += INCREMREAL;
  1879.  }
  1880. }
  1881.  
  1882. VOID VLine_S (struct RastPort *Rp,const LONG b1,const LONG b2,const LONG x)
  1883. {
  1884. REGISTER LONG y;
  1885.  
  1886. ULONG Color;
  1887.  
  1888.  CRE = RMIN + (((long double)  x) * INCREMREAL);
  1889.  
  1890.  CIM = IMAX - (((long double) b2) * INCREMIMAG);
  1891.  
  1892.  for (y = b2; y >= b1; y--)
  1893.  {
  1894.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1895.  
  1896.      if (Color)
  1897.      {
  1898.         Color *= COLOR_PENS;
  1899.  
  1900.         Color /= ITERATIONS;
  1901.  
  1902.         Color += 4L;
  1903.      }
  1904.  
  1905.      SetAPen (Rp,Color);
  1906.  
  1907.      WritePixel (Rp,x,y);
  1908.  
  1909.      CIM += INCREMIMAG;
  1910.  }
  1911. }
  1912.  
  1913. VOID HLine_S (struct RastPort *Rp,const LONG a1,const LONG a2,const LONG y)
  1914. {
  1915. REGISTER LONG x;
  1916.  
  1917. ULONG Color;
  1918.  
  1919.  CRE = RMIN + (((long double) a1) * INCREMREAL);
  1920.  
  1921.  CIM = IMAX - (((long double)  y) * INCREMIMAG);
  1922.  
  1923.  for (x = a1; x <= a2; x++)
  1924.  {
  1925.      Color = (*FUNCTION) (MAX_ITERATIONS,CRE,CIM);
  1926.  
  1927.      if (Color)
  1928.      {
  1929.         Color *= COLOR_PENS;
  1930.  
  1931.         Color /= ITERATIONS;
  1932.  
  1933.         Color += 4L;
  1934.      }
  1935.  
  1936.      SetAPen (Rp,Color);
  1937.  
  1938.      WritePixel (Rp,x,y);
  1939.  
  1940.      CRE += INCREMREAL;
  1941.  }
  1942. }
  1943.  
  1944. BOOL CheckBox (struct RastPort *Rp,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  1945. {
  1946. const LONG Color = ReadPixel (Rp,a1,b1);
  1947.  
  1948. REGISTER LONG Var;
  1949.  
  1950.   if (Color != ReadPixel (Rp,a2,b2)) return FALSE;
  1951.  
  1952.   if (Color != ReadPixel (Rp,a2,b1)) return FALSE;
  1953.  
  1954.   if (Color != ReadPixel (Rp,a1,b2)) return FALSE;
  1955.  
  1956.   for (Var = (a1 + 1L); Var <= (a2 - 1L); Var++)
  1957.   {
  1958.       if (Color != ReadPixel (Rp,Var,b1)) return FALSE;
  1959.  
  1960.       if (Color != ReadPixel (Rp,Var,b2)) return FALSE;
  1961.   }
  1962.  
  1963.   for (Var = (b1 + 1L); Var <= (b2 - 1L); Var++)
  1964.   {
  1965.       if (Color != ReadPixel (Rp,a1,Var)) return FALSE;
  1966.  
  1967.       if (Color != ReadPixel (Rp,a2,Var)) return FALSE;
  1968.   }
  1969.  
  1970.   return TRUE;
  1971. }
  1972.  
  1973. BOOL Rectangle (struct Window *Win,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  1974. {
  1975. struct IntuiMessage *Message;
  1976.  
  1977. UWORD MyCode;
  1978.  
  1979. LONG helpx,helpy;
  1980.  
  1981. ULONG MyClass;
  1982.  
  1983.  if (Win->UserPort->mp_SigBit)
  1984.  {
  1985.     if (Message = (struct IntuiMessage *) GT_GetIMsg (Win->UserPort))
  1986.     {
  1987.        MyClass = Message->Class;
  1988.  
  1989.        MyCode  = Message->Code;
  1990.  
  1991.        GT_ReplyIMsg ((struct IntuiMessage *) Message);
  1992.  
  1993.        switch (MyClass)
  1994.        {
  1995.          case IDCMP_MENUPICK    : if (MyCode != MENUNULL)
  1996.                                   {
  1997.                                      if (ProcessMenu (Win,MyCode) & STOP_MSG) return TRUE;
  1998.                                   }
  1999.  
  2000.                                   break;
  2001.  
  2002.          case IDCMP_RAWKEY      : if (MyCode == TAB) return FALSE;
  2003.  
  2004.                                   if (MyCode == RAW_ESC) return TRUE;
  2005.  
  2006.                                   break;
  2007.  
  2008.          case IDCMP_CLOSEWINDOW : return TRUE;
  2009.        }
  2010.     }
  2011.  }
  2012.  
  2013.  helpx = a2 - a1;
  2014.  
  2015.  helpy = b2 - b1;
  2016.  
  2017.  if ((helpx < MINLIMIT) || (helpy < MINLIMIT)) return FALSE;
  2018.  
  2019.  if (CheckBox (Win->RPort,a1,b1,a2,b2))
  2020.  {
  2021.     SetAPen (Win->RPort,ReadPixel (Win->RPort,a1,b1));
  2022.  
  2023.     RectFill (Win->RPort,a1,b1,a2,b2);
  2024.  
  2025.     return FALSE;
  2026.  }
  2027.  
  2028.  if ((helpx < (MINLIMIT << 1L)) || (helpy < (MINLIMIT << 1L)))
  2029.  {
  2030.     for (helpy = (b1 + 1L); helpy <= (b2 - 1L); helpy++)
  2031.     {
  2032.         (*H_LINE) (Win->RPort,a1+1L,a2-1L,helpy);
  2033.     }
  2034.  
  2035.     return FALSE;
  2036.  }
  2037.  
  2038.  if (helpx >= helpy)
  2039.  {
  2040.     helpx = (a1 + a2) >> 1L;
  2041.  
  2042.     (*V_LINE) (Win->RPort,b1+1L,b2-1L,helpx);
  2043.  
  2044.     if (Rectangle (Win,a1,b1,helpx,b2)) return TRUE;
  2045.  
  2046.     if (Rectangle (Win,helpx,b1,a2,b2)) return TRUE;
  2047.  }
  2048.  
  2049.  else
  2050.  {
  2051.     helpy = (b1 + b2) >> 1L;
  2052.  
  2053.     (*H_LINE) (Win->RPort,a1+1L,a2-1L,helpy);
  2054.  
  2055.     if (Rectangle (Win,a1,b1,a2,helpy)) return TRUE;
  2056.  
  2057.     if (Rectangle (Win,a1,helpy,a2,b2)) return TRUE;
  2058.  }
  2059.  
  2060.  return FALSE;
  2061. }
  2062.  
  2063. ULONG DrawFractal (struct Window *Win,const LONG a1,const LONG b1,const LONG a2,const LONG b2)
  2064. {
  2065. ULONG StartSec = NULL , EndSec = NULL , Dummy = NULL;
  2066.  
  2067.  CurrentTime (&StartSec,&Dummy);
  2068.  
  2069.  INCREMREAL = (fabs (RMAX-RMIN)) / ((long double) (a2 - a1 + 1L));
  2070.  
  2071.  INCREMIMAG = (fabs (IMAX-IMIN)) / ((long double) (b2 - b1 + 1L));
  2072.  
  2073.  ITERATIONS = MAX_ITERATIONS + 1;
  2074.  
  2075.  if (TMASK & MASK) ShowTitle (Win->WScreen,FALSE);
  2076.  
  2077.  (*H_LINE) (Win->RPort,a1,a2,b1);
  2078.  
  2079.  (*V_LINE) (Win->RPort,b1+1L,b2-1L,a2);
  2080.  
  2081.  (*H_LINE) (Win->RPort,a1,a2,b2);
  2082.  
  2083.  (*V_LINE) (Win->RPort,b1+1L,b2-1L,a1);
  2084.  
  2085.  Rectangle (Win,a1,b1,a2,b2);
  2086.  
  2087.  if (TMASK & MASK) ShowTitle (Win->WScreen,TRUE);
  2088.  
  2089.  CurrentTime (&EndSec,&Dummy);
  2090.  
  2091.  DisplayBeep (Win->WScreen);
  2092.  
  2093.  return (EndSec-StartSec);
  2094. }
  2095.  
  2096. BOOL Preview (struct Window *Win,WORD Width,WORD Height)
  2097. {
  2098. struct Window *PreviewWin;
  2099.  
  2100. struct IntuiMessage *Message;
  2101.  
  2102. BOOL Error = FALSE;
  2103.  
  2104. UWORD MyCode = 0;
  2105.  
  2106. ULONG MyClass = NULL;
  2107.  
  2108.  MYBITMAP = CopyBitMap (Win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  2109.  
  2110.  PreviewWin = OpenWindowTags (0,WA_Left,Win->LeftEdge + 10,
  2111.                                 WA_Top,Win->TopEdge + 15,
  2112.                                 WA_Width,(WORD) (Width  >> 1L),
  2113.                                 WA_Height,(WORD) (Height >> 1L),
  2114.                                 WA_Title,"Preview window",
  2115.                                 WA_ScreenTitle,"¼ Window preview...",
  2116.                                 WA_CustomScreen,Win->WScreen,
  2117.                                 WA_IDCMP,IDCMP_RAWKEY|IDCMP_CLOSEWINDOW,
  2118.                                 WA_Flags,WFLG_ACTIVATE|WFLG_CLOSEGADGET|WFLG_DRAGBAR|WFLG_NOCAREREFRESH|WFLG_SMART_REFRESH|WFLG_RMBTRAP|WFLG_GIMMEZEROZERO,
  2119.                                 WA_BusyPointer,TRUE,
  2120.                                 TAG_END);
  2121.  if (PreviewWin)
  2122.  {
  2123.     PasteWin (MYBITMAP,PreviewWin,ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  2124.  
  2125.     PutPointer (PreviewWin,0,0,0,0,0,BUSY_POINTER);
  2126.  
  2127.     ELAPSEDTIME = DrawFractal (PreviewWin,0L,0L,(LONG) (PreviewWin->GZZWidth) - 1L,(LONG) (PreviewWin->GZZHeight) - 1L);
  2128.  
  2129.     PutPointer (PreviewWin,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  2130.  
  2131.     ShowTime (Win,"Preview elapsed time:",ELAPSEDTIME);
  2132.  
  2133.     while (1L)
  2134.     {
  2135.          WaitPort (PreviewWin->UserPort);
  2136.  
  2137.          if (Message = (struct IntuiMessage *) GT_GetIMsg (PreviewWin->UserPort))
  2138.          {
  2139.                 MyClass = Message->Class;
  2140.  
  2141.                 MyCode  = Message->Code;
  2142.  
  2143.                 GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2144.          }
  2145.  
  2146.          if (MyClass == IDCMP_CLOSEWINDOW) break;
  2147.  
  2148.          if ((MyClass == IDCMP_RAWKEY) && (MyCode == RAW_ESC)) break;
  2149.     }
  2150.  
  2151.     PutPointer (PreviewWin,0,0,0,0,0,CLEAR_POINTER);
  2152.  
  2153.     CloseWindow (PreviewWin);
  2154.  }
  2155.  
  2156.  else
  2157.  {
  2158.     if (BMASK & MASK)
  2159.     {
  2160.        FreeBitMap (MYBITMAP);
  2161.  
  2162.        MASK ^= BMASK;
  2163.     }
  2164.  
  2165.     Fail (PreviewWindowError,15L);
  2166.  
  2167.     Error = TRUE;
  2168.  }
  2169.  
  2170.  return Error;
  2171. }
  2172.  
  2173. BOOL DrawFrame (struct Window *Win,WORD Zx,WORD Zy,WORD Zw,WORD Zh)
  2174. {
  2175. WORD LeftEdge,TopEdge,RightEdge,BottomEdge;
  2176.  
  2177.   if ((Zx > 2) && (Zy > 2) && (Zx < Win->Width - 2) && (Zy < Win->Height - 2) && ((Zw >= INITIALZOOM) || (Zh >= INITIALZOOM)))
  2178.   {
  2179.      LeftEdge   = Zx - Zw;
  2180.  
  2181.      TopEdge    = Zy - Zh;
  2182.  
  2183.      RightEdge  = Zx + Zw;
  2184.  
  2185.      BottomEdge = Zy + Zh;
  2186.  
  2187.      if ((LeftEdge >= 0) && (TopEdge >= 0) && (RightEdge <= Win->Width) && (BottomEdge <= Win->Height))
  2188.      {
  2189.         ZOOMLINE [8] = ZOOMLINE [0] = ZOOMLINE [6] = LeftEdge;
  2190.  
  2191.         ZOOMLINE [1] = ZOOMLINE [3] = TopEdge;
  2192.  
  2193.         ZOOMLINE [2] = ZOOMLINE [4] = RightEdge;
  2194.  
  2195.         ZOOMLINE [5] = ZOOMLINE [7] = BottomEdge;
  2196.  
  2197.         ZOOMLINE [9] = ZOOMLINE [1] + 1;
  2198.      }
  2199.  
  2200.      DrawBorder (Win->RPort,&MYBORDER,0,0);
  2201.  
  2202.      MASK |= ZMASK;
  2203.   }
  2204.  
  2205.   else MASK ^= ZMASK;
  2206.  
  2207.   return (BOOL) (ZMASK & MASK);
  2208. }
  2209.  
  2210. BOOL FileRequest (struct Window *Win,TEXT *String,TEXT *DrawerTxt,BOOL DrawerType,BOOL Save)
  2211. {
  2212. struct FileRequester *MyFileReq;
  2213.  
  2214. BOOL Success = FALSE;
  2215.  
  2216.  if (MyFileReq = AllocAslRequest (ASL_FileRequest,0))
  2217.  {
  2218.     MYDIR = (DrawerType ? PALETTESDIR : PICTURESDIR);
  2219.  
  2220.     if (! strlen (MYDIR)) strcpy (MYDIR,DrawerTxt);
  2221.  
  2222.     if (AslRequestTags (MyFileReq,ASLFR_Window,Win,
  2223.                                   ASLFR_InitialLeftEdge,Win->LeftEdge + 15,
  2224.                                   ASLFR_InitialTopEdge,Win->TopEdge + 25,
  2225.                                   ASLFR_InitialWidth,300,
  2226.                                   ASLFR_InitialHeight,((Win->Height) * 7) >> 3,
  2227.                                   ASLFR_SleepWindow,TRUE,
  2228.                                   ASLFR_TextAttr,&MYFONTSTRUCT,
  2229.                                   ASLFR_TitleText,String,
  2230.                                   ASLFR_InitialDrawer,MYDIR,
  2231.                                   ASLFR_InitialFile,MYFILE,
  2232.                                   ASLFR_DoSaveMode,Save,
  2233.                                   ASLFR_RejectIcons,TRUE,
  2234.                                   TAG_END))
  2235.     {
  2236.        strcpy (MYFILE,MyFileReq->rf_File);
  2237.  
  2238.        strcpy (MYDIR,MyFileReq->rf_Dir);
  2239.  
  2240.        strcpy (MYPATH,MYDIR);
  2241.  
  2242.        Success = AddPart (MYPATH,MYFILE,sizeof (MYPATH));
  2243.     }
  2244.  
  2245.     FreeAslRequest (MyFileReq);
  2246.  }
  2247.  
  2248.  return Success;
  2249. }
  2250.  
  2251. BOOL FontRequest (struct Window *Win)
  2252. {
  2253. struct FontRequester *MyFontReq;
  2254.  
  2255. BOOL Success = FALSE;
  2256.  
  2257.  if (MyFontReq = AllocAslRequest (ASL_FontRequest,0))
  2258.  {
  2259.     if (AslRequestTags (MyFontReq,ASLFO_Window,Win,
  2260.                                   ASLFO_InitialLeftEdge,Win->LeftEdge + 15,
  2261.                                   ASLFO_InitialTopEdge,Win->TopEdge + 25,
  2262.                                   ASLFO_InitialWidth,300,
  2263.                                   ASLFO_InitialHeight,((Win->Height) * 7) >> 3,
  2264.                                   ASLFO_SleepWindow,TRUE,
  2265.                                   ASLFO_TextAttr,&MYFONTSTRUCT,
  2266.                                   ASLFO_TitleText,"Font requester",
  2267.                                   ASLFO_InitialName,MYFONTSTRUCT.ta_Name,
  2268.                                   ASLFO_InitialSize,MYFONTSTRUCT.ta_YSize,
  2269.                                   ASLFO_InitialStyle,MYFONTSTRUCT.ta_Style,
  2270.                                   ASLFO_InitialFlags,MYFONTSTRUCT.ta_Flags,
  2271.                                   ASLFO_DoFrontPen,TRUE,
  2272.                                   ASLFO_DoBackPen,TRUE,
  2273.                                   ASLFO_DoStyle,TRUE,
  2274.                                   ASLFO_DoDrawMode,TRUE,
  2275.                                   ASLFO_MinHeight,8,
  2276.                                   TAG_END))
  2277.     {
  2278.       strcpy (MYFONTSTRUCT.ta_Name,MyFontReq->fo_Attr.ta_Name);
  2279.  
  2280.       MYFONTSTRUCT.ta_YSize = MyFontReq->fo_Attr.ta_YSize;
  2281.  
  2282.       MYFONTSTRUCT.ta_Style = MyFontReq->fo_Attr.ta_Style;
  2283.  
  2284.       MYFONTSTRUCT.ta_Flags = MyFontReq->fo_Attr.ta_Flags;
  2285.  
  2286.       Success = TRUE;
  2287.     }
  2288.  
  2289.     FreeAslRequest (MyFontReq);
  2290.  }
  2291.  
  2292.  return Success;
  2293. }
  2294.  
  2295. static ULONG __saveds __asm SMFilterFunc (register __a0 struct Hook *Hook,register __a2 struct ScreenModeRequester *SMReq,register __a1 ULONG DisplayID)
  2296. {
  2297. DisplayInfoHandle DisplayHandle;
  2298.  
  2299. struct DisplayInfo DisplayInfo;
  2300.  
  2301. struct DimensionInfo DimensionInfo;
  2302.  
  2303. ULONG Accept = NULL;
  2304.  
  2305.   DisplayHandle = FindDisplayInfo (DisplayID);
  2306.  
  2307.   if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DisplayInfo,sizeof (struct DisplayInfo),DTAG_DISP,DisplayID))
  2308.   {
  2309.      if (GetDisplayInfoData (DisplayHandle,(UBYTE *) &DimensionInfo,sizeof (struct DimensionInfo),DTAG_DIMS,DisplayID))
  2310.      {
  2311.         Accept = (ULONG) (DimensionInfo.MaxDepth <= MAX_DEPTH) && ((DisplayInfo.PropertyFlags & DIPF_IS_WB) || (DisplayInfo.PropertyFlags & DIPF_IS_EXTRAHALFBRITE));
  2312.      }
  2313.   }
  2314.  
  2315.   return Accept;
  2316. }
  2317.  
  2318. BOOL SMRequest (struct ILBMInfo *Ilbm)
  2319. {
  2320. struct ScreenModeRequester *SMReq;
  2321.  
  2322. struct Window *Win = Ilbm->win;
  2323.  
  2324. BOOL NewScreen = FALSE;
  2325.  
  2326.  if (SMReq = AllocAslRequest (ASL_ScreenModeRequest,NULL))
  2327.  {
  2328.     if (AslRequestTags (SMReq,ASLSM_Window,Win,
  2329.                               ASLSM_SleepWindow,TRUE,
  2330.                               ASLSM_TitleText,"ScreenMode requester",
  2331.                               ASLSM_InitialLeftEdge,Win->LeftEdge + 15,
  2332.                               ASLSM_InitialTopEdge,Win->TopEdge + 25,
  2333.                               ASLSM_InitialWidth,310,
  2334.                               ASLSM_InitialHeight,((Win->Height) * 7) >> 3,
  2335.                               ASLSM_InitialDisplayID,GetVPModeID (ViewPortAddress (Win)),
  2336.                               ASLSM_InitialDisplayWidth,Win->Width,
  2337.                               ASLSM_InitialDisplayHeight,Win->Height,
  2338.                               ASLSM_InitialDisplayDepth,Win->RPort->BitMap->Depth,
  2339.                               ASLSM_InitialOverscanType,Ilbm->ucliptype,
  2340.                               ASLSM_InitialInfoOpened,TRUE,
  2341.                               ASLSM_InitialInfoLeftEdge,Win->LeftEdge + 310 + 15,
  2342.                               ASLSM_InitialInfoTopEdge,Win->TopEdge,
  2343.                               ASLSM_DoWidth,TRUE,
  2344.                               ASLSM_DoHeight,TRUE,
  2345.                               ASLSM_DoDepth,TRUE,
  2346.                               ASLSM_DoOverscanType,TRUE,
  2347.                               ASLSM_MinDepth,MIN_DEPTH,
  2348.                               ASLSM_MaxDepth,MAX_DEPTH,
  2349.                               ASLSM_PropertyFlags,DIPF_IS_WB|DIPF_IS_EXTRAHALFBRITE,
  2350.                               ASLSM_PropertyMask,DIPF_IS_DUALPF|DIPF_IS_PF2PRI|DIPF_IS_HAM,
  2351.                               ASLSM_FilterFunc,&SMFILTERHOOK,
  2352.                               ASLSM_MinWidth,MIN_WIDTH,
  2353.                               ASLSM_MinHeight,MIN_HEIGHT,
  2354.                               TAG_END))
  2355.     {
  2356.        Ilbm->camg = SMReq->sm_DisplayID;
  2357.  
  2358.        Ilbm->Bmhd.w = SMReq->sm_DisplayWidth;
  2359.  
  2360.        Ilbm->Bmhd.h = SMReq->sm_DisplayHeight;
  2361.  
  2362.        Ilbm->Bmhd.nPlanes = SMReq->sm_DisplayDepth;
  2363.  
  2364.        Ilbm->ucliptype = SMReq->sm_OverscanType;
  2365.  
  2366.        NewScreen = TRUE;
  2367.     }
  2368.  
  2369.     FreeAslRequest (SMReq);
  2370.  }
  2371.  
  2372.  return NewScreen;
  2373. }
  2374.  
  2375. VOID SetMenuStart (struct Window *Win)
  2376. {
  2377.   OnMenu  (Win,FULLMENUNUM (0,0,NOSUB));
  2378.  
  2379.   OnMenu  (Win,FULLMENUNUM (0,2,NOSUB));
  2380.  
  2381.   OnMenu  (Win,FULLMENUNUM (0,3,NOSUB));
  2382.  
  2383.   OnMenu  (Win,FULLMENUNUM (0,4,NOSUB));
  2384.  
  2385.   OnMenu  (Win,FULLMENUNUM (0,5,NOSUB));
  2386.  
  2387.   OnMenu  (Win,FULLMENUNUM (0,7,NOSUB));
  2388.  
  2389.   OnMenu  (Win,FULLMENUNUM (0,9,NOSUB));
  2390.  
  2391.   OnMenu  (Win,FULLMENUNUM (1,0,NOSUB));
  2392.  
  2393.   OnMenu  (Win,FULLMENUNUM (1,1,NOSUB));
  2394.  
  2395.   OnMenu  (Win,FULLMENUNUM (1,2,NOSUB));
  2396.  
  2397.   OnMenu  (Win,FULLMENUNUM (1,4,NOSUB));
  2398.  
  2399.   OnMenu  (Win,FULLMENUNUM (2,2,NOSUB));
  2400.  
  2401.   OnMenu  (Win,FULLMENUNUM (2,4,NOSUB));
  2402.  
  2403.   OffMenu (Win,FULLMENUNUM (2,7,NOSUB));
  2404.  
  2405.   OnMenu  (Win,FULLMENUNUM (3,0,NOSUB));
  2406.  
  2407.   OnMenu  (Win,FULLMENUNUM (3,2,NOSUB));
  2408.  
  2409.   OnMenu  (Win,FULLMENUNUM (3,4,NOSUB));
  2410.  
  2411.   OnMenu  (Win,FULLMENUNUM (3,6,NOSUB));
  2412. }
  2413.  
  2414. VOID SetMenuStop (struct Window *Win)
  2415. {
  2416.   OffMenu  (Win,FULLMENUNUM (0,0,NOSUB));
  2417.  
  2418.   OffMenu  (Win,FULLMENUNUM (0,2,NOSUB));
  2419.  
  2420.   OffMenu  (Win,FULLMENUNUM (0,3,NOSUB));
  2421.  
  2422.   OffMenu  (Win,FULLMENUNUM (0,4,NOSUB));
  2423.  
  2424.   OffMenu  (Win,FULLMENUNUM (0,5,NOSUB));
  2425.  
  2426.   OffMenu  (Win,FULLMENUNUM (0,7,NOSUB));
  2427.  
  2428.   OffMenu  (Win,FULLMENUNUM (0,9,NOSUB));
  2429.  
  2430.   OffMenu  (Win,FULLMENUNUM (1,0,NOSUB));
  2431.  
  2432.   OffMenu  (Win,FULLMENUNUM (1,1,NOSUB));
  2433.  
  2434.   OffMenu  (Win,FULLMENUNUM (1,2,NOSUB));
  2435.  
  2436.   OffMenu  (Win,FULLMENUNUM (1,4,NOSUB));
  2437.  
  2438.   OffMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2439.  
  2440.   OffMenu  (Win,FULLMENUNUM (2,2,NOSUB));
  2441.  
  2442.   OffMenu  (Win,FULLMENUNUM (2,4,NOSUB));
  2443.  
  2444.   OffMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2445.  
  2446.   OnMenu   (Win,FULLMENUNUM (2,7,NOSUB));
  2447.  
  2448.   OffMenu  (Win,FULLMENUNUM (3,0,NOSUB));
  2449.  
  2450.   OffMenu  (Win,FULLMENUNUM (3,2,NOSUB));
  2451.  
  2452.   OffMenu  (Win,FULLMENUNUM (3,4,NOSUB));
  2453.  
  2454.   OffMenu  (Win,FULLMENUNUM (3,6,NOSUB));
  2455. }
  2456.  
  2457. ULONG ProcessMenu (struct Window *Win,UWORD Code)
  2458. {
  2459. struct MenuItem *Item;
  2460.  
  2461. ULONG Choice = NULL;
  2462.  
  2463.  while (Code != MENUNULL)
  2464.  {
  2465.   Item = ItemAddress (MAINMENU,(ULONG) Code);
  2466.  
  2467.   switch (MENUNUM (Code))
  2468.   {
  2469.         case 0:    switch (ITEMNUM (Code))
  2470.                    {
  2471.                         case 0: Choice |= ABOUT_MSG;
  2472.  
  2473.                                 break;
  2474.  
  2475.                         case 2: Choice |= LOADPICTURE_MSG;
  2476.  
  2477.                                 break;
  2478.  
  2479.                         case 3: Choice |= SAVEPICTURE_MSG;
  2480.  
  2481.                                 break;
  2482.  
  2483.                         case 4: Choice |= LOADPALETTE_MSG;
  2484.  
  2485.                                 break;
  2486.  
  2487.                         case 5: Choice |= SAVEPALETTE_MSG;
  2488.  
  2489.                                 break;
  2490.  
  2491.                         case 7: Choice |= DUMP_MSG;
  2492.  
  2493.                                 break;
  2494.  
  2495.                         case 9: Choice |= EXIT_MSG;
  2496.  
  2497.                                 break;
  2498.                    }
  2499.  
  2500.                    break;
  2501.  
  2502.         case 1:    switch (ITEMNUM (Code))
  2503.                    {
  2504.                         case 0: switch (SUBNUM (Code))
  2505.                                 {
  2506.                                    case 0: Choice |= TITLE_MSG;
  2507.  
  2508.                                            break;
  2509.  
  2510.                                    case 2: Choice |= TIME_MSG;
  2511.  
  2512.                                            break;
  2513.                                 }
  2514.  
  2515.                                 break;
  2516.  
  2517.                         case 1: Choice |= COORDS_MSG;
  2518.  
  2519.                                 break;
  2520.  
  2521.                         case 2: switch (SUBNUM (Code))
  2522.                                 {
  2523.                                    case 0: MAX_ITERATIONS = 63;
  2524.  
  2525.                                            break;
  2526.  
  2527.                                    case 1: MAX_ITERATIONS = 127;
  2528.  
  2529.                                            break;
  2530.  
  2531.                                    case 2: MAX_ITERATIONS = 191;
  2532.  
  2533.                                            break;
  2534.  
  2535.                                    case 3: MAX_ITERATIONS = 255;
  2536.  
  2537.                                            break;
  2538.  
  2539.                                    case 4: MAX_ITERATIONS = 319;
  2540.  
  2541.                                            break;
  2542.  
  2543.                                    case 5: MAX_ITERATIONS = 383;
  2544.  
  2545.                                            break;
  2546.  
  2547.                                    case 6: MAX_ITERATIONS = 447;
  2548.  
  2549.                                            break;
  2550.  
  2551.                                    case 7: MAX_ITERATIONS = 511;
  2552.  
  2553.                                            break;
  2554.  
  2555.                                    case 8: MAX_ITERATIONS = 1023;
  2556.  
  2557.                                            break;
  2558.  
  2559.                                   case 10: Choice |= ITER_MSG;
  2560.  
  2561.                                            break;
  2562.                                 }
  2563.  
  2564.                                 break;
  2565.  
  2566.                         case 3: switch (SUBNUM (Code))
  2567.                                 {
  2568.                                    case  0: PRIORITY = -5;
  2569.  
  2570.                                             break;
  2571.  
  2572.                                    case  1: PRIORITY = -4;
  2573.  
  2574.                                             break;
  2575.  
  2576.                                    case  2: PRIORITY = -3;
  2577.  
  2578.                                             break;
  2579.  
  2580.                                    case  3: PRIORITY = -2;
  2581.  
  2582.                                             break;
  2583.  
  2584.                                    case  4: PRIORITY = -1;
  2585.  
  2586.                                             break;
  2587.  
  2588.                                    case  6: PRIORITY =  0;
  2589.  
  2590.                                             break;
  2591.  
  2592.                                    case  8: PRIORITY =  1;
  2593.  
  2594.                                             break;
  2595.  
  2596.                                    case  9: PRIORITY =  2;
  2597.  
  2598.                                             break;
  2599.  
  2600.                                    case 10: PRIORITY =  3;
  2601.  
  2602.                                             break;
  2603.  
  2604.                                    case 11: PRIORITY =  4;
  2605.  
  2606.                                             break;
  2607.  
  2608.                                    case 12: PRIORITY =  5;
  2609.  
  2610.                                             break;
  2611.  
  2612.                                 }
  2613.  
  2614.                                 Forbid ();
  2615.  
  2616.                                 THISTASK = FindTask (NULL);
  2617.  
  2618.                                 Permit ();
  2619.  
  2620.                                 SetTaskPri (THISTASK,PRIORITY);
  2621.  
  2622.                                 break;
  2623.  
  2624.                         case 4: switch (SUBNUM (Code))
  2625.                                 {
  2626.                                    case 0: if (CheckEHB (GetVPModeID (ViewPortAddress (Win))))
  2627.                                            {
  2628.                                               H_LINE = HLine_R_EHB;
  2629.  
  2630.                                               V_LINE = VLine_R_EHB;
  2631.                                            }
  2632.  
  2633.                                            else
  2634.                                            {
  2635.                                               H_LINE = HLine_R;
  2636.  
  2637.                                               V_LINE = VLine_R;
  2638.                                            }
  2639.  
  2640.                                            SPREAD = FALSE;
  2641.  
  2642.                                            break;
  2643.  
  2644.                                    case 1: if (CheckEHB (GetVPModeID (ViewPortAddress (Win))))
  2645.                                            {
  2646.                                               H_LINE = HLine_S_EHB;
  2647.  
  2648.                                               V_LINE = VLine_S_EHB;
  2649.                                            }
  2650.  
  2651.                                            else
  2652.                                            {
  2653.                                               H_LINE = HLine_S;
  2654.  
  2655.                                               V_LINE = VLine_S;
  2656.                                            }
  2657.  
  2658.                                            SPREAD = TRUE;
  2659.  
  2660.                                            break;
  2661.                                 }
  2662.  
  2663.                                 break;
  2664.  
  2665.                         case 5: switch (SUBNUM (Code))
  2666.                                 {
  2667.                                    case 0: FUNCTION = Integer;
  2668.  
  2669.                                            break;
  2670.  
  2671.                                    case 1: FUNCTION = Real;
  2672.  
  2673.                                            break;
  2674.                                 }
  2675.  
  2676.                                 break;
  2677.                    }
  2678.  
  2679.                    break;
  2680.  
  2681.         case 2: switch (ITEMNUM (Code))
  2682.                 {
  2683.                    case 0: Choice |= PREVIEW_MSG;
  2684.  
  2685.                            break;
  2686.  
  2687.                    case 2: Choice |= REDRAW_MSG;
  2688.  
  2689.                            break;
  2690.  
  2691.                    case 4: Choice |= UNDO_MSG;
  2692.  
  2693.                            break;
  2694.  
  2695.                    case 6: Choice |= DRAW_MSG;
  2696.  
  2697.                            break;
  2698.  
  2699.                    case 7: Choice |= STOP_MSG;
  2700.  
  2701.                            break;
  2702.                 }
  2703.  
  2704.                 break;
  2705.  
  2706.         case 3: switch (ITEMNUM (Code))
  2707.                 {
  2708.                    case 0: switch (SUBNUM (Code))
  2709.                            {
  2710.                               case 0: Choice |= CYCLERIGHT_MSG;
  2711.  
  2712.                                       break;
  2713.  
  2714.                               case 1: Choice |= CYCLELEFT_MSG;
  2715.  
  2716.                                       break;
  2717.  
  2718.                               case 3: Choice |= DELAY_MSG;
  2719.  
  2720.                                       break;
  2721.  
  2722.                            }
  2723.  
  2724.                            break;
  2725.  
  2726.                    case 2: Choice |= PALETTE_MSG;
  2727.  
  2728.                            break;
  2729.  
  2730.                    case 4: Choice |= NEWDISPLAY_MSG;
  2731.  
  2732.                            break;
  2733.  
  2734.                    case 6: Choice |= FONTREQ_MSG;
  2735.  
  2736.                            break;
  2737.                 }
  2738.   }
  2739.  
  2740.  Code = Item->NextSelect;
  2741.  }
  2742.  
  2743.  return Choice;
  2744. }
  2745.  
  2746. VOID ProcessMouse (struct Window *Win,WORD CurMouseX,WORD CurMouseY)
  2747. {
  2748. static WORD MX1 = 0 , MY1 = 0 , MX2 = 0 , MY2 = 0, W = 0, H = 0;
  2749.  
  2750. struct IntuiMessage *Message;
  2751.  
  2752. UWORD MyCode = 0;
  2753.  
  2754. LONG DefaultQueue;
  2755.  
  2756. ULONG MyClass = NULL;
  2757.  
  2758.    ModifyIDCMP (Win,IDCMP_MOUSEBUTTONS | IDCMP_MOUSEMOVE);
  2759.  
  2760.    DefaultQueue = SetMouseQueue (Win,10);
  2761.  
  2762.    if (ZMASK & MASK) DrawFrame (Win,MX1,MY1,W,H);
  2763.  
  2764.    MX1 = CurMouseX;
  2765.  
  2766.    MY1 = CurMouseY;
  2767.  
  2768.    W = INITIALZOOM;
  2769.  
  2770.    H = ScalerDiv ((LONG) W,(ULONG) Win->Height,(ULONG) Win->Width);
  2771.  
  2772.    DrawFrame (Win,MX1,MY1,W,H);
  2773.  
  2774.    while (1L)
  2775.    {
  2776.      WaitPort (Win->UserPort);
  2777.  
  2778.      if (Message = (struct IntuiMessage *) GT_GetIMsg (Win->UserPort))
  2779.      {
  2780.         MyClass = Message->Class;
  2781.  
  2782.         MyCode = Message->Code;
  2783.  
  2784.         MX2 = Message->MouseX;
  2785.  
  2786.         MY2 = Message->MouseY;
  2787.  
  2788.         GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2789.      }
  2790.  
  2791.      if (MyClass == IDCMP_MOUSEMOVE)
  2792.      {
  2793.         DrawFrame (Win,MX1,MY1,W,H);
  2794.  
  2795.         W = abs (MX1 - MX2);
  2796.  
  2797.         H = abs (MY1 - MY2);
  2798.  
  2799.         if (W > H) (W = ScalerDiv ((LONG) H,(ULONG) Win->Width,(ULONG) Win->Height));
  2800.  
  2801.         else (H = ScalerDiv ((LONG) W,(ULONG) Win->Height,(ULONG) Win->Width));
  2802.  
  2803.         DrawFrame (Win,MX1,MY1,W,H);
  2804.      }
  2805.  
  2806.      else if ((MyClass == IDCMP_MOUSEBUTTONS) && (MyCode != SELECTDOWN)) break;
  2807.    }
  2808.  
  2809.    SetMouseQueue (Win,(ULONG) DefaultQueue);
  2810.  
  2811.    ModifyIDCMP (Win,IDCMP_STANDARD);
  2812.  
  2813.    if (ZMASK & MASK)
  2814.    {
  2815.       OnMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2816.  
  2817.       OnMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2818.    }
  2819.  
  2820.    else
  2821.    {
  2822.       OffMenu  (Win,FULLMENUNUM (2,0,NOSUB));
  2823.  
  2824.       OffMenu  (Win,FULLMENUNUM (2,6,NOSUB));
  2825.    }
  2826. }
  2827.  
  2828. ULONG HandleEvents (struct ILBMInfo *Ilbm)
  2829. {
  2830. struct IntuiMessage *Message;
  2831.  
  2832. WORD MouseX = 0,MouseY = 0;
  2833.  
  2834. UWORD MyCode = 0;
  2835.  
  2836. LONG Error;
  2837.  
  2838. ULONG MyClass = NULL,MyMenu = NULL,Index;
  2839.  
  2840. DOUBLE RealCoord,ImagCoord,ScrRatio,FracRatio;
  2841.  
  2842.  PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  2843.  
  2844.  do { WaitPort (Ilbm->win->UserPort);
  2845.  
  2846.       if (Message = (struct IntuiMessage *) GT_GetIMsg (Ilbm->win->UserPort))
  2847.       {
  2848.              MyClass = Message->Class;
  2849.  
  2850.              MyCode  = Message->Code;
  2851.  
  2852.              MouseX  = Message->MouseX;
  2853.  
  2854.              MouseY  = Message->MouseY;
  2855.  
  2856.              GT_ReplyIMsg ((struct IntuiMessage *) Message);
  2857.       }
  2858.  
  2859.       switch (MyClass)
  2860.       {
  2861.              case    IDCMP_MOUSEMOVE: if (TMASK & MASK)
  2862.                                       {
  2863.                                          RealCoord = RMIN + ((DOUBLE) MouseX * fabs (RMAX-RMIN) / (DOUBLE) (Ilbm->win->Width - 1));
  2864.  
  2865.                                          ImagCoord = IMAX - ((DOUBLE) MouseY * fabs (IMAX-IMIN) / (DOUBLE) (Ilbm->win->Height - 1));
  2866.  
  2867.                                          ScrRatio  = (DOUBLE) Ilbm->win->Width / (DOUBLE) Ilbm->win->Height;
  2868.  
  2869.                                          FracRatio = fabs (RMAX-RMIN) / fabs (IMAX-IMIN);
  2870.  
  2871.                                          sprintf (BAR_STRING,"Real %+2.16lf Imag %+2.16lfi W:H %.5lf R:I %.5lf",RealCoord,ImagCoord,ScrRatio,FracRatio);
  2872.  
  2873.                                          WaitTOF ();
  2874.  
  2875.                                          SetWindowTitles (Ilbm->win,(TEXT *) ~0,BAR_STRING);
  2876.                                       }
  2877.  
  2878.                                       break;
  2879.  
  2880.              case IDCMP_MOUSEBUTTONS: if (MyCode == SELECTDOWN) ProcessMouse (Ilbm->win,MouseX,MouseY);
  2881.  
  2882.                                       break;
  2883.  
  2884.              case     IDCMP_MENUPICK: MyMenu = ProcessMenu (Ilbm->win,MyCode);
  2885.  
  2886.                                       if (MyMenu & EXIT_MSG) break;
  2887.  
  2888.                                       if (MyMenu & TITLE_MSG)
  2889.                                       {
  2890.                                          if (TMASK & MASK) MASK ^= TMASK;
  2891.  
  2892.                                          else MASK |= TMASK;
  2893.  
  2894.                                          Ilbm->TBState = TMASK & MASK;
  2895.  
  2896.                                          ShowTitle (Ilbm->scr,(LONG) Ilbm->TBState);
  2897.  
  2898.                                          break;
  2899.                                       }
  2900.  
  2901.                                       if (MyMenu & TIME_MSG)
  2902.                                       {
  2903.                                          if (! (TMASK & MASK)) ShowTitle (Ilbm->scr,TRUE);
  2904.  
  2905.                                          ShowTime (Ilbm->win,"Last calculating time:",ELAPSEDTIME);
  2906.  
  2907.                                          Delay (MYSECS);
  2908.  
  2909.                                          if (! (TMASK & MASK)) ShowTitle (Ilbm->scr,FALSE);
  2910.  
  2911.                                          break;
  2912.                                       }
  2913.  
  2914.                                       if (MyMenu & ITER_MSG)
  2915.                                       {
  2916.                                          ModifyIDCMP (Ilbm->win,NULL);
  2917.  
  2918.                                          ClearMenuStrip (Ilbm->win);
  2919.  
  2920.                                          while (1L)
  2921.                                          {
  2922.                                             MAX_ITERATIONS = (WORD) IntegerGad (Ilbm->win,"Iterations requester","Insert new iterations...","_Iterations",MAX_ITERATIONS + 1L) - 1L;
  2923.  
  2924.                                             if (MAX_ITERATIONS >= MIN_ITERATIONS) break;
  2925.  
  2926.                                             DisplayBeep (Ilbm->scr);
  2927.  
  2928.                                             MAX_ITERATIONS = MIN_ITERATIONS;
  2929.                                          }
  2930.  
  2931.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  2932.  
  2933.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  2934.  
  2935.                                          break;
  2936.                                       }
  2937.  
  2938.                                       if (MyMenu & ABOUT_MSG)
  2939.                                       {
  2940.                                          ModifyIDCMP (Ilbm->win,NULL);
  2941.  
  2942.                                          ClearMenuStrip (Ilbm->win);
  2943.  
  2944.                                          About (Ilbm->win);
  2945.  
  2946.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  2947.  
  2948.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  2949.  
  2950.                                          break;
  2951.                                       }
  2952.  
  2953.                                       if (MyMenu & PALETTE_MSG)
  2954.                                       {
  2955.                                          ModifyIDCMP (Ilbm->win,NULL);
  2956.  
  2957.                                          ClearMenuStrip (Ilbm->win);
  2958.  
  2959.                                          if (! ModifyPalette (Ilbm->win,Ilbm->win->LeftEdge + 10,Ilbm->win->TopEdge + 15,300,218,PALETTE)) Fail (PaletteRequesterError,15L);
  2960.  
  2961.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  2962.  
  2963.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  2964.  
  2965.                                          break;
  2966.                                       }
  2967.  
  2968.                                       if (MyMenu & CYCLERIGHT_MSG)
  2969.                                       {
  2970.                                          ModifyIDCMP (Ilbm->win,IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY|IDCMP_MENUPICK);
  2971.  
  2972.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  2973.  
  2974.                                          ClearMenuStrip (Ilbm->win);
  2975.  
  2976.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  2977.  
  2978.                                          Cycle (Ilbm->win,DELAY,SHIFTRIGHT);
  2979.  
  2980.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  2981.  
  2982.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  2983.  
  2984.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  2985.  
  2986.                                          LoadRGB32 (ViewPortAddress (Ilbm->win),PALETTE);
  2987.  
  2988.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  2989.  
  2990.                                          break;
  2991.                                       }
  2992.  
  2993.                                       if (MyMenu & CYCLELEFT_MSG)
  2994.                                       {
  2995.                                          ModifyIDCMP (Ilbm->win,IDCMP_MOUSEBUTTONS|IDCMP_RAWKEY|IDCMP_MENUPICK);
  2996.  
  2997.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  2998.  
  2999.                                          ClearMenuStrip (Ilbm->win);
  3000.  
  3001.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3002.  
  3003.                                          Cycle (Ilbm->win,DELAY,SHIFTLEFT);
  3004.  
  3005.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3006.  
  3007.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3008.  
  3009.                                          if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3010.  
  3011.                                          LoadRGB32 (ViewPortAddress (Ilbm->win),PALETTE);
  3012.  
  3013.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3014.  
  3015.                                          break;
  3016.                                       }
  3017.  
  3018.                                       if (MyMenu & DELAY_MSG)
  3019.                                       {
  3020.                                          while (1L)
  3021.                                          {
  3022.                                             DELAY = IntegerGad (Ilbm->win,"Delay requester","Insert delay time...","_Delay time",DELAY);
  3023.  
  3024.                                             if ((DELAY >= 0L) && (DELAY <= 100)) break;
  3025.  
  3026.                                             DisplayBeep (Ilbm->scr);
  3027.                                          }
  3028.  
  3029.                                          break;
  3030.                                       }
  3031.  
  3032.                                       if (MyMenu & STOP_MSG)
  3033.                                       {
  3034.                                          SetMenuStart (Ilbm->win);
  3035.  
  3036.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3037.  
  3038.                                          break;
  3039.                                       }
  3040.  
  3041.                                       if (MyMenu & LOADPICTURE_MSG)
  3042.                                       {
  3043.                                          if (FileRequest (Ilbm->win,"Load iff picture","PROGDIR:Pictures",PICTURES_DRAWER,FALSE))
  3044.                                          {
  3045.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3046.  
  3047.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3048.                                             {
  3049.                                                if (! (Error = QueryMandPic (Ilbm,&MANDChunkTmp,MYPATH)))
  3050.                                                {
  3051.                                                   MANDChunk = *MANDChunkTmp;
  3052.                    
  3053.                                                   SaveCoords ();
  3054.  
  3055.                                                   RMIN = MANDChunk.RMin;
  3056.  
  3057.                                                   RMAX = MANDChunk.RMax;
  3058.  
  3059.                                                   IMIN = MANDChunk.IMin;
  3060.  
  3061.                                                   IMAX = MANDChunk.IMax;
  3062.  
  3063.                                                   MAX_ITERATIONS = MANDChunk.Iterations - 1L;
  3064.  
  3065.                                                   if (MANDChunk.Special & SPREAD_BIT) SPREAD = TRUE;
  3066.  
  3067.                                                   else SPREAD = FALSE;
  3068.  
  3069.                                                   if (MANDChunk.Special & INTEGER_BIT) FUNCTION = Integer;
  3070.  
  3071.                                                   else FUNCTION = Real;
  3072.  
  3073.                                                   CloseDisplay (Ilbm,VINFO);
  3074.  
  3075.                                                   Ilbm->IFFPFlags = IFFPF_BESTFIT;
  3076.  
  3077.                                                   COLOR_PENS = MakeDisplay (Ilbm);
  3078.  
  3079.                                                   Ilbm->IFFPFlags = NULL;
  3080.  
  3081.                                                   if (! COLOR_PENS)
  3082.                                                   {
  3083.                                                      Fail (MakeDisplayError,20L);
  3084.  
  3085.                                                      MyMenu = EXIT_MSG;
  3086.  
  3087.                                                      break;
  3088.                                                   }
  3089.  
  3090.                                                   if (ZMASK & MASK) MASK ^= ZMASK;
  3091.  
  3092.                                                   COLOR_PENS -= 4L;
  3093.  
  3094.                                                   if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3095.  
  3096.                                                   if (LoadMandPic (Ilbm,MYPATH)) Fail (LoadMandPicError,5L);
  3097.  
  3098.                                                   if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3099.  
  3100.                                                   if (CheckEHB (Ilbm->camg)) GetRGB32 (Ilbm->vp->ColorMap,0L,32L,&PALETTE [1L]);
  3101.  
  3102.                                                   else GetRGB32 (Ilbm->vp->ColorMap,0L,(ULONG) Ilbm->vp->ColorMap->Count,&PALETTE [1L]);
  3103.  
  3104.                                                   LoadRGB32 (Ilbm->vp,PALETTE);
  3105.  
  3106.                                                   ClearMenuStrip (Ilbm->win);
  3107.  
  3108.                                                   if (SPREAD)
  3109.                                                   {
  3110.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags ^= CHECKED;
  3111.  
  3112.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags |= CHECKED;
  3113.  
  3114.                                                      if (CheckEHB (Ilbm->camg))
  3115.                                                      {
  3116.                                                         H_LINE = HLine_S_EHB;
  3117.  
  3118.                                                         V_LINE = VLine_S_EHB;
  3119.                                                      }
  3120.  
  3121.                                                      else
  3122.                                                      {
  3123.                                                         H_LINE = HLine_S;
  3124.  
  3125.                                                         V_LINE = VLine_S;
  3126.                                                      }
  3127.                                                   }
  3128.  
  3129.                                                   else
  3130.                                                   {
  3131.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,4,1))->Flags ^= CHECKED;
  3132.  
  3133.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,4,0))->Flags |= CHECKED;
  3134.  
  3135.                                                      if (CheckEHB (Ilbm->camg))
  3136.                                                      {
  3137.                                                         H_LINE = HLine_R_EHB;
  3138.  
  3139.                                                         V_LINE = VLine_R_EHB;
  3140.                                                      }
  3141.  
  3142.                                                      else
  3143.                                                      {
  3144.                                                         H_LINE = HLine_R;
  3145.  
  3146.                                                         V_LINE = VLine_R;
  3147.                                                      }
  3148.                                                   }
  3149.  
  3150.                                                   for (Index = 0; Index <= 10; Index++) if (ItemAddress (MAINMENU,FULLMENUNUM (1,2,Index))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,2,Index))->Flags ^= CHECKED;
  3151.  
  3152.                                                   switch (MAX_ITERATIONS)
  3153.                                                   {
  3154.                                                     case 63 :  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags |= CHECKED;
  3155.  
  3156.                                                                break;
  3157.  
  3158.                                                     case 127:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,1))->Flags |= CHECKED;
  3159.  
  3160.                                                                break;
  3161.  
  3162.                                                     case 191:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,2))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,2))->Flags |= CHECKED;
  3163.  
  3164.                                                                break;
  3165.  
  3166.                                                     case 255:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,3))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,3))->Flags |= CHECKED;
  3167.  
  3168.                                                                break;
  3169.  
  3170.                                                     case 319:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags |= CHECKED;
  3171.  
  3172.                                                                break;
  3173.  
  3174.                                                     case 383:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,5))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,5))->Flags |= CHECKED;
  3175.  
  3176.                                                                break;
  3177.  
  3178.                                                     case 447:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,6))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,6))->Flags |= CHECKED;
  3179.  
  3180.                                                                break;
  3181.  
  3182.                                                     case 511:  if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,7))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,7))->Flags |= CHECKED;
  3183.  
  3184.                                                                break;
  3185.  
  3186.                                                     case 1023: if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,8))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,8))->Flags |= CHECKED;
  3187.  
  3188.                                                                break;
  3189.  
  3190.                                                     default:   if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,2,10))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,2,10))->Flags |= CHECKED;
  3191.  
  3192.                                                                break;
  3193.                                                   }
  3194.  
  3195.                                                   if (FUNCTION == Integer)
  3196.                                                   {
  3197.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags ^= CHECKED;
  3198.  
  3199.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags |= CHECKED;
  3200.                                                   }
  3201.  
  3202.                                                   else
  3203.                                                   {
  3204.                                                      if (ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags & CHECKED) ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3205.  
  3206.                                                      if (! (ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags & CHECKED)) ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags |= CHECKED;
  3207.                                                   }
  3208.  
  3209.                                                   ResetMenuStrip (Ilbm->win,MAINMENU);
  3210.                                                }
  3211.  
  3212.                                                else Fail (QueryMandPicError,NULL);
  3213.  
  3214.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3215.                                             }
  3216.                                          }
  3217.  
  3218.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3219.  
  3220.                                          break;
  3221.                                       }
  3222.  
  3223.                                       if (MyMenu & SAVEPICTURE_MSG)
  3224.                                       {
  3225.                                          if (FileRequest (Ilbm->win,"Save iff picture","PROGDIR:Pictures",PICTURES_DRAWER,TRUE))
  3226.                                          {
  3227.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3228.  
  3229.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3230.                                             {
  3231.                                                MANDChunk.LeftEdge = Ilbm->win->LeftEdge;
  3232.  
  3233.                                                MANDChunk.TopEdge = Ilbm->win->TopEdge;
  3234.  
  3235.                                                MANDChunk.Width = Ilbm->win->Width;
  3236.  
  3237.                                                MANDChunk.Height = Ilbm->win->Height;
  3238.  
  3239.                                                MANDChunk.RMin = RMIN;
  3240.  
  3241.                                                MANDChunk.RMax = RMAX;
  3242.  
  3243.                                                MANDChunk.IMin = IMIN;
  3244.  
  3245.                                                MANDChunk.IMax = IMAX;
  3246.  
  3247.                                                MANDChunk.Iterations = MAX_ITERATIONS + 1L;
  3248.  
  3249.                                                MANDChunk.Special = NULL;
  3250.  
  3251.                                                if (SPREAD) MANDChunk.Special |= SPREAD_BIT;
  3252.  
  3253.                                                if (FUNCTION == Integer) MANDChunk.Special |= INTEGER_BIT;
  3254.  
  3255.                                                if (ZMASK & MASK)
  3256.                                                {
  3257.                                                   DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3258.  
  3259.                                                   MASK ^= ZMASK;
  3260.                                                }
  3261.  
  3262.                                                if (TMASK & MASK) ShowTitle (Ilbm->scr,FALSE);
  3263.  
  3264.                                                if (SaveMandPic (Ilbm,&SPECIAL_CHUNK,©RIGHT_CHUNK,MYPATH)) Fail (SaveMandPicError,5L);
  3265.  
  3266.                                                if (TMASK & MASK) ShowTitle (Ilbm->scr,TRUE);
  3267.  
  3268.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3269.                                             }
  3270.                                          }
  3271.  
  3272.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3273.  
  3274.                                          break;
  3275.                                       }
  3276.  
  3277.                                       if (MyMenu & LOADPALETTE_MSG)
  3278.                                       {
  3279.                                          if (FileRequest (Ilbm->win,"Load palette","PROGDIR:Palettes",PALETTES_DRAWER,FALSE))
  3280.                                          {
  3281.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3282.  
  3283.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3284.                                             {
  3285.                                                if (LoadPalette (Ilbm,MYPATH)) Fail (LoadMandPalError,5L);
  3286.  
  3287.                                                if (CheckEHB (Ilbm->camg)) GetRGB32 (Ilbm->vp->ColorMap,0L,32L,&PALETTE [1L]);
  3288.  
  3289.                                                else GetRGB32 (Ilbm->vp->ColorMap,0L,(ULONG) Ilbm->vp->ColorMap->Count,&PALETTE [1L]);
  3290.  
  3291.                                                LoadRGB32 (Ilbm->vp,PALETTE);
  3292.  
  3293.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3294.                                             }
  3295.  
  3296.                                             else Fail (NoMem,5L);
  3297.                                          }
  3298.  
  3299.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3300.  
  3301.                                          break;
  3302.                                       }
  3303.  
  3304.                                       if (MyMenu & SAVEPALETTE_MSG)
  3305.                                       {
  3306.                                          if (FileRequest (Ilbm->win,"Save palette","PROGDIR:Palettes",PALETTES_DRAWER,TRUE))
  3307.                                          {
  3308.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3309.  
  3310.                                             if (Ilbm->ParseInfo.iff = AllocIFF ())
  3311.                                             {
  3312.                                                if (SavePalette (Ilbm,©RIGHT_CHUNK,MYPATH)) Fail (LoadMandPalError,5L);
  3313.  
  3314.                                                FreeIFF (Ilbm->ParseInfo.iff);
  3315.                                             }
  3316.  
  3317.                                             else Fail (NoMem,5L);
  3318.                                          }
  3319.  
  3320.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3321.  
  3322.                                          break;
  3323.                                       }
  3324.  
  3325.                                       if (MyMenu & FONTREQ_MSG)
  3326.                                       {
  3327.                                          if (FontRequest (Ilbm->win))
  3328.                                          {
  3329.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3330.  
  3331.                                             MYBITMAP = CopyBitMap (Ilbm->win,Ilbm->win->LeftEdge,Ilbm->win->TopEdge,Ilbm->win->Width,Ilbm->win->Height);
  3332.  
  3333.                                             CloseDisplay (Ilbm,VINFO);
  3334.  
  3335.                                             if (NEWFONT = OpenDiskFont (&MYFONTSTRUCT)) MASK |= FMASK;
  3336.  
  3337.                                             else
  3338.                                             {
  3339.                                                strcpy (MYFONTSTRUCT.ta_Name,"topaz.font");
  3340.  
  3341.                                                MYFONTSTRUCT.ta_YSize = 9;
  3342.  
  3343.                                                MYFONTSTRUCT.ta_Style = FS_NORMAL;
  3344.  
  3345.                                                MYFONTSTRUCT.ta_Flags = FPF_ROMFONT;
  3346.  
  3347.                                                DisplayAlert (RECOVERY_ALERT,OpenDiskFontError,30);
  3348.                                             }
  3349.  
  3350.                                             if (! MakeDisplay (Ilbm))
  3351.                                             {
  3352.                                                Fail (MakeDisplayError,20L);
  3353.  
  3354.                                                MyMenu = EXIT_MSG;
  3355.  
  3356.                                                break;
  3357.                                             }
  3358.  
  3359.                                             PasteWin (MYBITMAP,Ilbm->win,Ilbm->win->Width,Ilbm->win->Height);
  3360.                                          }
  3361.  
  3362.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3363.  
  3364.                                          break;
  3365.                                       }
  3366.  
  3367.                                       if (MyMenu & DUMP_MSG)
  3368.                                       {
  3369.                                          ModifyIDCMP (Ilbm->win,NULL);
  3370.  
  3371.                                          ClearMenuStrip (Ilbm->win);
  3372.  
  3373.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3374.  
  3375.                                          if (Choice (Ilbm->win,"Print requester","Are you sure ?"))
  3376.                                          {
  3377.                                             WinDump (Ilbm->win);
  3378.                                          }
  3379.  
  3380.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3381.  
  3382.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3383.  
  3384.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3385.  
  3386.                                          break;
  3387.                                       }
  3388.  
  3389.                                       if (MyMenu & PREVIEW_MSG)
  3390.                                       {
  3391.                                          if (NewCoords (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4],ZOOMLINE [5]))
  3392.                                          {
  3393.                                             ModifyIDCMP (Ilbm->win,NULL);
  3394.  
  3395.                                             ClearMenuStrip (Ilbm->win);
  3396.  
  3397.                                             Preview (Ilbm->win,Ilbm->win->Width,Ilbm->win->Height);
  3398.  
  3399.                                             ResetMenuStrip (Ilbm->win,MAINMENU);
  3400.  
  3401.                                             ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3402.  
  3403.                                             RestoreCoords ();
  3404.                                          }
  3405.  
  3406.                                          break;
  3407.                                       }
  3408.  
  3409.                                       if (MyMenu & COORDS_MSG)
  3410.                                       {
  3411.                                          ModifyIDCMP (Ilbm->win,NULL);
  3412.  
  3413.                                          ClearMenuStrip (Ilbm->win);
  3414.  
  3415.                                          if (ShowCoords (Ilbm->win))
  3416.                                          {
  3417.                                             if (Choice (Ilbm->win,"Rendering requester","Recalculate ?")) MyMenu |= REDRAW_MSG;
  3418.                                          }
  3419.  
  3420.                                          ResetMenuStrip (Ilbm->win,MAINMENU);
  3421.  
  3422.                                          ModifyIDCMP (Ilbm->win,IDCMP_STANDARD);
  3423.                                       }
  3424.  
  3425.                                       if (MyMenu & REDRAW_MSG)
  3426.                                       {
  3427.                                          if (ZMASK & MASK)
  3428.                                          {
  3429.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3430.  
  3431.                                             MASK ^= ZMASK;
  3432.                                          }
  3433.  
  3434.                                          SetMenuStop (Ilbm->win);
  3435.  
  3436.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3437.  
  3438.                                          ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3439.  
  3440.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3441.  
  3442.                                          SetMenuStart (Ilbm->win);
  3443.  
  3444.                                          ShowTime (Ilbm->win,"Recalculate elapsed time:",ELAPSEDTIME);
  3445.  
  3446.                                          break;
  3447.                                       }
  3448.  
  3449.                                       if (MyMenu & UNDO_MSG)
  3450.                                       {
  3451.                                          if (ZMASK & MASK)
  3452.                                          {
  3453.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3454.  
  3455.                                             MASK ^= ZMASK;
  3456.                                          }
  3457.  
  3458.                                          RestoreCoords ();
  3459.  
  3460.                                          PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3461.  
  3462.                                          SetMenuStop (Ilbm->win);
  3463.  
  3464.                                          SetRast (Ilbm->wrp,BLACK);
  3465.  
  3466.                                          ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3467.  
  3468.                                          PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3469.  
  3470.                                          SetMenuStart (Ilbm->win);
  3471.  
  3472.                                          ShowTime (Ilbm->win,"Undo elapsed time:",ELAPSEDTIME);
  3473.  
  3474.                                          break;
  3475.                                       }
  3476.  
  3477.                                       if (MyMenu & DRAW_MSG)
  3478.                                       {
  3479.                                          if (ZMASK & MASK)
  3480.                                          {
  3481.                                             DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3482.  
  3483.                                             MASK ^= ZMASK;
  3484.                                          }
  3485.  
  3486.                                          if (NewCoords (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4],ZOOMLINE [5]))
  3487.                                          {
  3488.                                             MYBITMAP = CopyBitMap (Ilbm->win,ZOOMLINE [6],ZOOMLINE [3],ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  3489.  
  3490.                                             PasteWin (MYBITMAP,Ilbm->win,ZOOMLINE [4]-ZOOMLINE [6]+1,ZOOMLINE [5]-ZOOMLINE [3]+1);
  3491.  
  3492.                                             SetMenuStop (Ilbm->win);
  3493.  
  3494.                                             PutPointer (Ilbm->win,0,0,0,0,0,BUSY_POINTER);
  3495.  
  3496.                                             ELAPSEDTIME = DrawFractal (Ilbm->win,(LONG) (Ilbm->win->LeftEdge),(LONG) (Ilbm->win->TopEdge),(LONG) (Ilbm->win->Width) - 1L,(LONG) (Ilbm->win->Height) - 1L);
  3497.  
  3498.                                             PutPointer (Ilbm->win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3499.  
  3500.                                             SetMenuStart (Ilbm->win);
  3501.  
  3502.                                             ShowTime (Ilbm->win,"Zoom elapsed time:",ELAPSEDTIME);
  3503.                                          }
  3504.  
  3505.                                          break;
  3506.                                       }
  3507.  
  3508.                                       break;
  3509.  
  3510.              case       IDCMP_RAWKEY: if (MyCode == RAW_ESC) MyMenu = EXIT_MSG;
  3511.  
  3512.                                       break;
  3513.  
  3514.              case  IDCMP_CLOSEWINDOW: MyMenu = EXIT_MSG;
  3515.       }
  3516.  
  3517.     } while (! ((MyMenu & EXIT_MSG) || (MyMenu & NEWDISPLAY_MSG)));
  3518.  
  3519.     if (ZMASK & MASK)
  3520.     {
  3521.        DrawBorder (Ilbm->wrp,&MYBORDER,0,0);
  3522.  
  3523.        MASK ^= ZMASK;
  3524.     }
  3525.  
  3526.  return MyMenu;
  3527. }
  3528.  
  3529. struct BitMap *CopyBitMap (struct Window *Win,WORD Left,WORD Top,WORD Width,WORD Height)
  3530. {
  3531. struct BitMap *NewBM;
  3532.  
  3533.   NewBM = AllocBitMap ((ULONG) Width,(ULONG) Height,(ULONG) Win->RPort->BitMap->Depth,BMF_INTERLEAVED | BMF_CLEAR,NULL);
  3534.  
  3535.   if (NewBM)
  3536.   {
  3537.      if (ZMASK & MASK) DrawBorder (Win->RPort,&MYBORDER,0,0);
  3538.  
  3539.      if (TMASK & MASK) ShowTitle (Win->WScreen,FALSE);
  3540.  
  3541.      BltBitMap (Win->RPort->BitMap,(LONG) Left,(LONG) Top,NewBM,0,0,(LONG) Width,(LONG) Height,0xC0,0xFF,NULL);
  3542.  
  3543.      if (TMASK & MASK) ShowTitle (Win->WScreen,TRUE);
  3544.  
  3545.      if (ZMASK & MASK) DrawBorder (Win->RPort,&MYBORDER,0,0);
  3546.  
  3547.      MASK |= BMASK;
  3548.   }
  3549.  
  3550.   return NewBM;
  3551. }
  3552.  
  3553. BOOL PasteWin (struct BitMap *SrcBM,struct Window *DstWin,WORD SrcWidth,WORD SrcHeight)
  3554. {
  3555. BOOL Success = FALSE;
  3556.  
  3557. ULONG DstWinWidth,DstWinHeight;
  3558.  
  3559. struct BitMap *TmpBM;
  3560.  
  3561.   if (SrcBM)
  3562.   {
  3563.      DstWinWidth = (ULONG) ((DstWin->Flags & WFLG_GIMMEZEROZERO) ? DstWin->GZZWidth : DstWin->Width);
  3564.  
  3565.      DstWinHeight = (ULONG) ((DstWin->Flags & WFLG_GIMMEZEROZERO) ? DstWin->GZZHeight : DstWin->Height);
  3566.  
  3567.      TmpBM = AllocBitMap ((ULONG) DstWinWidth,(ULONG) DstWinHeight,(ULONG) DstWin->RPort->BitMap->Depth,BMF_INTERLEAVED | BMF_CLEAR,NULL);
  3568.  
  3569.      if (TmpBM)
  3570.      {
  3571.         BSA.bsa_SrcWidth    = SrcWidth;
  3572.         BSA.bsa_SrcHeight   = SrcHeight;
  3573.         BSA.bsa_XSrcFactor  = SrcWidth;
  3574.         BSA.bsa_YSrcFactor  = SrcHeight;
  3575.         BSA.bsa_XDestFactor = DstWinWidth;
  3576.         BSA.bsa_YDestFactor = DstWinHeight;
  3577.         BSA.bsa_SrcBitMap   = SrcBM;
  3578.         BSA.bsa_DestBitMap  = TmpBM;
  3579.  
  3580.         BitMapScale (&BSA);
  3581.  
  3582.         BltBitMapRastPort (TmpBM,0,0,DstWin->RPort,0,0,DstWinWidth,DstWinHeight,0xC0);
  3583.  
  3584.         FreeBitMap (TmpBM);
  3585.  
  3586.         Success = TRUE;
  3587.      }
  3588.  
  3589.      FreeBitMap (SrcBM);
  3590.  
  3591.      MASK ^= BMASK;
  3592.   }
  3593.  
  3594.   return Success;
  3595. }
  3596.  
  3597. LONG WinDump (struct Window *Win)
  3598. {
  3599. struct IODRPReq *IODrp;
  3600. struct MsgPort  *PrinterPort;
  3601. struct ViewPort *Vp;
  3602.  
  3603. LONG Error = PDERR_BADDIMENSION;
  3604.  
  3605.   if (! Win) return Error;
  3606.  
  3607.   if (PrinterPort = CreatePort (0,0))
  3608.   {
  3609.      if (IODrp = (struct IODRPReq *) CreateExtIO (PrinterPort,sizeof (struct IODRPReq)))
  3610.      {
  3611.         if (! (Error = OpenDevice ("printer.device",0,(struct IORequest *) IODrp,0)))
  3612.         {
  3613.            Vp = ViewPortAddress (Win);
  3614.  
  3615.            IODrp->io_Command   = PRD_DUMPRPORT;
  3616.            IODrp->io_RastPort  = Win->RPort;
  3617.            IODrp->io_ColorMap  = Vp->ColorMap;
  3618.            IODrp->io_Modes     = (ULONG) Vp->Modes;
  3619.            IODrp->io_SrcX      = Win->LeftEdge;
  3620.            IODrp->io_SrcY      = Win->TopEdge;
  3621.            IODrp->io_SrcWidth  = Win->Width;
  3622.            IODrp->io_SrcHeight = Win->Height;
  3623.            IODrp->io_DestCols  = 0;
  3624.            IODrp->io_Special   = SPECIAL_FULLCOLS | SPECIAL_ASPECT;
  3625.  
  3626.            Error = DoIO ((struct IORequest *)IODrp);
  3627.  
  3628.            CloseDevice ((struct IORequest *)IODrp);
  3629.         }
  3630.  
  3631.         DeleteExtIO ((struct IORequest *)IODrp);
  3632.      }
  3633.  
  3634.      DeletePort (PrinterPort);
  3635.   }
  3636.  
  3637.   return Error;
  3638. }
  3639.  
  3640. ULONG Fail (UBYTE *ErrorString,ULONG ErrorLevel)
  3641. {
  3642.   DisplayAlert (RECOVERY_ALERT,ErrorString,30);
  3643.  
  3644.   RETURNVALUE = ErrorLevel;
  3645.  
  3646.   return RETURNVALUE;
  3647. }
  3648.  
  3649. LONG main (ULONG Argc,UBYTE **Argv)
  3650. {
  3651. UBYTE **ToolTypes;
  3652.  
  3653.   if ((ToolTypes = ArgArrayInit (Argc,Argv)))
  3654.   {
  3655.      MYILBM.Bmhd.w       = ArgInt (ToolTypes,"SCREENWIDTH",DEF_WIDTH);
  3656.      MYILBM.Bmhd.h       = ArgInt (ToolTypes,"SCREENHEIGHT",DEF_HEIGHT);
  3657.      MYILBM.Bmhd.nPlanes = ArgInt (ToolTypes,"SCREENDEPTH",MAX_DEPTH);
  3658.  
  3659.      sscanf (ArgString (ToolTypes,"SCREENMODE",DEF_MONITORSTR),"%lx",&MYILBM.camg);
  3660.      sscanf (ArgString (ToolTypes,"REALMIN",INIT_DEF_RMINSTR),"%lf",&RMIN);
  3661.      sscanf (ArgString (ToolTypes,"REALMAX",INIT_DEF_RMAXSTR),"%lf",&RMAX);
  3662.      sscanf (ArgString (ToolTypes,"IMAGMIN",INIT_DEF_IMINSTR),"%lf",&IMIN);
  3663.      sscanf (ArgString (ToolTypes,"IMAGMAX",INIT_DEF_IMAXSTR),"%lf",&IMAX);
  3664.  
  3665.      ArgArrayDone ();
  3666.  
  3667.      MYILBM.Bmhd.w       = MIN (MAX_WIDTH,MAX (MYILBM.Bmhd.w,DEF_WIDTH));
  3668.  
  3669.      MYILBM.Bmhd.h       = MIN (MAX_HEIGHT,MAX (MYILBM.Bmhd.h,DEF_HEIGHT));
  3670.  
  3671.      MYILBM.Bmhd.nPlanes = MIN (MAX_DEPTH,MAX (MYILBM.Bmhd.nPlanes,MIN_DEPTH));
  3672.   }
  3673.  
  3674.   else
  3675.   {
  3676.      MYILBM.camg = DEF_MONITOR;
  3677.  
  3678.      MYILBM.Bmhd.w = DEF_WIDTH;
  3679.  
  3680.      MYILBM.Bmhd.h = DEF_HEIGHT;
  3681.  
  3682.      MYILBM.Bmhd.nPlanes = (CheckGFX () ? MAX_DEPTH : DEF_DEPTH);
  3683.   }
  3684.  
  3685.   if (ModeNotAvailable (MYILBM.camg)) MYILBM.camg = ModeFallBack (MYILBM.camg,MYILBM.Bmhd.w,MYILBM.Bmhd.h,MYILBM.Bmhd.nPlanes);
  3686.  
  3687.   if (GetMaxPlanes (MYILBM.camg) < MIN_DEPTH)
  3688.   {
  3689.      Fail (OpenDisplayError,20L);
  3690.  
  3691.      exit (RETURNVALUE);
  3692.   }
  3693.  
  3694.   PALETTE = (CheckGFX () ? COLORS_AGA : COLORS_ECS);
  3695.  
  3696.   if ((RMIN >= RMAX) || (IMIN >= IMAX))
  3697.   {
  3698.     DEF_RMIN = INIT_DEF_RMIN;
  3699.  
  3700.     DEF_RMAX = INIT_DEF_RMAX;
  3701.  
  3702.     DEF_IMIN = INIT_DEF_IMIN;
  3703.  
  3704.     DEF_IMAX = INIT_DEF_IMAX;
  3705.   }
  3706.  
  3707.   else
  3708.   {
  3709.     DEF_RMIN = RMIN;
  3710.  
  3711.     DEF_RMAX = RMAX;
  3712.  
  3713.     DEF_IMIN = IMIN;
  3714.  
  3715.     DEF_IMAX = IMAX;
  3716.   }
  3717.  
  3718.   SaveCoords ();
  3719.  
  3720.   MYILBM.ParseInfo.propchks = IlbmProps;
  3721.  
  3722.   MYILBM.ParseInfo.collectchks = IlbmCollects;
  3723.  
  3724.   MYILBM.ParseInfo.stopchks = IlbmStops;
  3725.  
  3726.   MYILBM.Bmhd.pageWidth  = 0;
  3727.  
  3728.   MYILBM.Bmhd.pageHeight = 0;
  3729.  
  3730.   MYILBM.stype = CUSTOMSCREEN | SCREENQUIET;
  3731.  
  3732.   MYILBM.TBState = TMASK & MASK;
  3733.  
  3734.   MYILBM.ucliptype = OSCAN_TEXT;
  3735.  
  3736.   MYILBM.EHB = TRUE;
  3737.  
  3738.   MYILBM.Autoscroll = TRUE;
  3739.  
  3740.   MYILBM.IFFPFlags = NULL;
  3741.  
  3742.   FUNCTION = Integer;
  3743.  
  3744.   H_LINE = HLine_S;
  3745.  
  3746.   V_LINE = VLine_S;
  3747.  
  3748.   if (MAINMENU = CreateMenus (ProgMenu,TAG_END))
  3749.   {
  3750.      if (MYILBM.Bmhd.nPlanes < 6)
  3751.      {
  3752.         MAX_ITERATIONS = 63;
  3753.  
  3754.         ItemAddress (MAINMENU,FULLMENUNUM (1,2,4))->Flags ^= CHECKED;
  3755.  
  3756.         ItemAddress (MAINMENU,FULLMENUNUM (1,2,0))->Flags |= CHECKED;
  3757.      }
  3758.  
  3759.      if (CheckEHB (MYILBM.camg))
  3760.      {
  3761.         H_LINE = HLine_S_EHB;
  3762.  
  3763.         V_LINE = VLine_S_EHB;
  3764.      }
  3765.  
  3766.      if (CheckFPU (SysBase->AttnFlags))
  3767.      {
  3768.         FUNCTION = Real;
  3769.  
  3770.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,0))->Flags ^= CHECKED;
  3771.  
  3772.         ItemAddress (MAINMENU,FULLMENUNUM (1,5,1))->Flags |= CHECKED;
  3773.      }
  3774.  
  3775.      if (COLOR_PENS = MakeDisplay (&MYILBM))
  3776.      {
  3777.         COLOR_PENS -= 4L;
  3778.  
  3779.         MANDChunk.LeftEdge = MYILBM.win->LeftEdge;
  3780.  
  3781.         MANDChunk.TopEdge = MYILBM.win->TopEdge;
  3782.  
  3783.         MANDChunk.Width = MYILBM.win->Width;
  3784.  
  3785.         MANDChunk.Height = MYILBM.win->Height;
  3786.  
  3787.         MANDChunk.RMin = RMIN;
  3788.  
  3789.         MANDChunk.RMax = RMAX;
  3790.  
  3791.         MANDChunk.IMin = IMIN;
  3792.  
  3793.         MANDChunk.IMax = IMAX;
  3794.  
  3795.         MANDChunk.Iterations = MAX_ITERATIONS + 1L;
  3796.  
  3797.         MANDChunk.Special = NULL;
  3798.  
  3799.         SPECIAL_CHUNK.ch_Data = &MANDChunk;
  3800.  
  3801.         PutPointer (MYILBM.win,0,0,0,0,0,BUSY_POINTER);
  3802.  
  3803.         ELAPSEDTIME = DrawFractal (MYILBM.win,(LONG) (MYILBM.win->LeftEdge),(LONG) (MYILBM.win->TopEdge),(LONG) (MYILBM.win->Width) - 1L,(LONG) (MYILBM.win->Height) - 1L);
  3804.  
  3805.         PutPointer (MYILBM.win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3806.  
  3807.         SetMenuStart (MYILBM.win);
  3808.  
  3809.         ShowTime (MYILBM.win,"Rendering elapsed time:",ELAPSEDTIME);
  3810.  
  3811.         ModifyIDCMP (MYILBM.win,NULL);
  3812.  
  3813.         ClearMenuStrip (MYILBM.win);
  3814.  
  3815.         About (MYILBM.win);
  3816.  
  3817.         ResetMenuStrip (MYILBM.win,MAINMENU);
  3818.  
  3819.         ModifyIDCMP (MYILBM.win,IDCMP_STANDARD);
  3820.  
  3821.         do
  3822.         {
  3823.           while (HandleEvents (&MYILBM) & NEWDISPLAY_MSG)
  3824.           {
  3825.                 if (SMRequest (&MYILBM))
  3826.                 {
  3827.                    MYBITMAP = CopyBitMap (MYILBM.win,MYILBM.win->LeftEdge,MYILBM.win->TopEdge,MYILBM.win->Width,MYILBM.win->Height);
  3828.  
  3829.                    CloseDisplay (&MYILBM,VINFO);
  3830.  
  3831.                    MYILBM.Bmhd.pageWidth  = 0;
  3832.  
  3833.                    MYILBM.Bmhd.pageHeight = 0;
  3834.  
  3835.                    COLOR_PENS = MakeDisplay (&MYILBM);
  3836.  
  3837.                    if (COLOR_PENS)
  3838.                    {
  3839.                       COLOR_PENS -= 4L;
  3840.  
  3841.                       PasteWin (MYBITMAP,MYILBM.win,(WORD) GetBitMapAttr (MYBITMAP,BMA_WIDTH),(WORD) GetBitMapAttr (MYBITMAP,BMA_HEIGHT));
  3842.  
  3843.                       if (CheckEHB (MYILBM.camg))
  3844.                       {
  3845.                          if (SPREAD == FALSE)
  3846.                          {
  3847.                             H_LINE = HLine_R_EHB;
  3848.  
  3849.                             V_LINE = VLine_R_EHB;
  3850.                          }
  3851.  
  3852.                          else
  3853.                          {
  3854.                             H_LINE = HLine_S_EHB;
  3855.  
  3856.                             V_LINE = VLine_S_EHB;
  3857.                          }
  3858.                       }
  3859.  
  3860.                       else
  3861.                       {
  3862.                          if (SPREAD == FALSE)
  3863.                          {
  3864.                             H_LINE = HLine_R;
  3865.  
  3866.                             V_LINE = VLine_R;
  3867.                          }
  3868.  
  3869.                          else
  3870.                          {
  3871.                             H_LINE = HLine_S;
  3872.  
  3873.                             V_LINE = VLine_S;
  3874.                          }
  3875.                       }
  3876.  
  3877.                       if (Choice (MYILBM.win,"Rendering requester","Recalculate ?"))
  3878.                       {
  3879.                          SetMenuStop (MYILBM.win);
  3880.  
  3881.                          PutPointer (MYILBM.win,0,0,0,0,0,BUSY_POINTER);
  3882.  
  3883.                          ELAPSEDTIME = DrawFractal (MYILBM.win,(LONG) (MYILBM.win->LeftEdge),(LONG) (MYILBM.win->TopEdge),(LONG) (MYILBM.win->Width) - 1L,(LONG) (MYILBM.win->Height) - 1L);
  3884.  
  3885.                          PutPointer (MYILBM.win,ZoomPointer,ZPW,ZPH,ZPXO,ZPYO,ZOOM_POINTER);
  3886.  
  3887.                          SetMenuStart (MYILBM.win);
  3888.  
  3889.                          ShowTime (MYILBM.win,"Rendering elapsed time:",ELAPSEDTIME);
  3890.                       }
  3891.                   }
  3892.  
  3893.                   else
  3894.                   {
  3895.                          Fail (MakeDisplayError,20L);
  3896.  
  3897.                          break;
  3898.                   }
  3899.                }
  3900.           }
  3901.  
  3902.           if (RETURNVALUE >= 20L) break;
  3903.  
  3904.         } while (! Choice (MYILBM.win,"Exit requester","Are you sure ?"));
  3905.  
  3906.         if (BMASK & MASK) FreeBitMap (MYBITMAP);
  3907.      }
  3908.  
  3909.      else Fail (MakeDisplayError,20L);
  3910.  
  3911.      CloseDisplay (&MYILBM,VINFO);
  3912.  
  3913.      FreeMenus (MAINMENU);
  3914.   }
  3915.  
  3916.   else Fail (MenuError,20L);
  3917.  
  3918.   exit (RETURNVALUE);
  3919. }
  3920.